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EXECUTIVE  SUMMARY 


COSTCASTER  is  a  computer-based  system  developed  by  Desmatics, 

Inc.  for  the  U.S.  Air  Force.  Its  purpose  is  to  aid  in  making  cost- 
related  decisions  regarding  replacement ,  modification  or  retention  of 
Air  Force  ground  Communications-Electronics  (C-E)  equipments.  This 
report  includes  a  brief  summary  of  the  COSTCASTER  methodology,  which 
is  described  more  fully  in  a  previous  Desmatics  report.  However,  the 
major  emphasis  here  is  to  document  the  implementation  of  a  prototype 
computer  model  developed  to  demonstrate  the  feasibility  of  the  COST¬ 
CASTER  concept.  Diagrams  are  included  to  show  the  relationships  among 
the  major  components  of  the  prototype  computer  model.  An  example  is 
presented  to  illustrate  the  use  of  the  model  in  realistic  situations. 

COSTCASTER  is  designed  to  use  a  data  base  of  Operating  and  Support 
(O&S)  costs  derived  from  the  C-E  subsystem  (D160A)  of  the  Air  Force 
Visibility  and  Management  of  Operating  and  Support  Costs  (VAMOSC) 
system.  The  COSTCASTER  data  base  will  be  updated  annually  by  a  pro¬ 
cessing  step  which  not  only  extends  the  time  frame  of  the  data  base, 
but  also  computes  preliminary  estimates  of  the  modification/replacement 
potential  of  C-E  end  items.  These  estimates  aid  in  identifying  candi¬ 
dates  for  further  consideration. 

COSTCASTER  has  a  cost  prediction  submodel  which  applies  statis¬ 
tical  regression  techniques  to  historical  costs  in  order  to  predict 
costs  in  future  years.  The  user  may  specify  which  cost  categories  to 
include,  how  many  years  to  forecast  and  how  to  weight  each  year's 


historical  costs. 


The  most  significant  feature  of  COSTCASTER  is  the  trade-off  assess¬ 
ment  submodel,  which  may  be  used  to  aid  in  assessing  the  consequences 
of  possible  modification/replacement/retention  alternatives.  COSTCASTER 
employs  a  model  which  considers  the  predicted  cost  of  the  present  item 
over  the  remainder  of  its  economic  life,  as  compared  with  the  antici¬ 
pated  acquisition  cost  and  expected  O&S  cost  of  a  proposed  replacement 
item. 

The  user  may  achieve  a  high  degree  of  interaction  with  the  trade¬ 
off  module.  The  model  allows  specification  of  expected  economic  life 
(both  for  old  and  new  items) ,  expected  acquisition  costs  for  replace¬ 
ment  items,  expected  percentage  reductions  in  O&S  costs  (by  category) 
for  new  or  modified  items,  and  discount  rates.  Default  values  are 
provided  if  no  user  options  are  given.  The  user  may  try  an  alternative, 
observe  its  economic  consequences  and  try  additional  alternatives  as 
desired. 

Most  of  the  planned  features  of  the  COSTCASTER  model  have  been 
implemented  in  a  prototype  program  on  a  large  mainframe  computer  for 
a  small  data  base.  This  has  established  that  the  theoretical  concepts 
embodied  in  COSTCASTER  can  be  realized  in  an  interactive  computer  en¬ 
vironment.  Desmatics  is  currently  developing  a  version  of  COSTCASTER 
using  Lotus  1-2-3  on  a  Z-100  microcomputer.  This  revised  version  will 
be  discussed  in  a  forthcoming  technical  report. 
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I.  INTRODUCTION 


This  report  describes  the  prototype  version  of  COSTCASTER,  a 
cost-prediction  and  trade-off  model  being  developed  by  Desmatics, 

Inc.  under  Air  Force  Contract  No.  F33600-82-C-0466 .  COSTCASTER  is 
intended  for  use  as  a  decision  aid  in  determining  whether  to  modify, 
replace  or  retain  Air  Force  ground  Communications-Electronics  (C-E) 
equipment.  Specifically,  the  COSTCASTER  computer  programs  developed 
by  Desmatics  are  designed  to  provide  the  user  with  forecasts  of  future 
O&S  costs  at  the  TMS  level  and  estimates  of  savings  associated  with 
potential  modification /replacement  decisions.  These  forecasts  will 
be  based  on  historical  O&S  cost  data  obtained  from  the  C-E  subsystem 
of  the  Air  Force  VAMOSC  system. 

The  methodology  underlying  COSTCASTER  is  described  in  detail  In 
Desmatics  Technical  Report  No.  118-4  [1],  (The  reader  may  find  it 
useful  to  review  that  report.)  This  report  describes  prototype  com¬ 
puter  programs  which  incorporate  that  methodology.  The  current  model 
consists  of  two  primary  modules,  one  interactive  and  one  which  is 
designed  as  a  batch  program.  There  are,  in  addition,  three  peripheral 
graphics  programs  which  may  be  used  to  display  outputs  produced  by  the 
interactive  portion  of  the  model. 

Section  II  of  this  report  discusses  the  role  of  COSTCASTER,  the 
current,  status  of  the  data  base,  and  the  program  inputs  and  outputs. 
Section  III  shows  how  COSTCASTER  might  be  used  to  perform  trade-off 
analysis  on  an  actual  TMS  and  provides  sample  program  outputs.  Section 


IV  provides  a  -data-iled^description  of  the  program  logic  for  the  inter 
active  module.  The  source  listing  for  the  interactive  portion  of  the 
program  is  given  in  the  appendix. 

The  programs  described  in  this  report  are  prototypes  developed 
to  demonstrate  the  feasibility  of  implementing  the  COSTCASTER  method¬ 
ology.  ^They  have  been  implemented  on  a  large  IBM  mainframe  computer 
using  a  small  data  base.  Desmatics  is  also  tasked  with  examining  the 
feasibility  of  implementing  COSTCASTER  on  a  microcomputer.  As  part 
of  this  examination,  Desmatics  is  developing  a  version  using  Lotus 
1-2-3  on  a  Z-100  microcomputer.  This  revised  version  of  COSTCASTER 
will  be  discussed  in  a  forthcoming  technical  report. 


II.  PROGRAM  DESCRIPTION 


Desmatics,  Inc.  has  written  prototype  computer  programs  to  pro¬ 
duce  most  of  the  COSTCASTER  outputs  described  in  Desmatics  Technical 
Report  No.  118-4  [1].  Currently,  the  programs  produce  ten  output  prod¬ 
ucts:  seven  tables  and  three  graphs.  This  section  provides  a  brief 
description  of  the  programs  and  their  intended  role  in  the  decision¬ 
making  process.  The  current  status  of  the  data  base  is  outlined  along 
with  the  program  inputs  and  outputs.  A  detailed  example  is  provided 
in  Section  III. 

A.  THE  ROLE  OF  COSTCASTER 

COSTCASTER  is  of  value  to  the  cost  analyst  for  two  reasons.  First, 
COSTCASTER  gives  the  analyst  forecasts  of  future  O&S  costs  for  a  TMS 
based  on  historical  O&S  costs,  and  provides  a  measure  of  the  accuracy 
and  reliability  of  these  forecasts  by  calculating  prediction  intervals 
and  prediction  diagnostics. 

Second,  COSTCASTER  provides  the  analyst  with  a  means  of  comparing 
the  remaining  life  cycle  costs  of  a  current  end  item  with  the  life  cycle 
costs  of  a  particular  modification  or  replacement  item.  By  using  COST¬ 
CASTER,  an  analyst  can  readily  estimate  the  expected  total  savings  over 
the  remaining  economic  life  of  the  current  end  item,  as  well  as  the 
expected  short  term  cost  avoidance  associated  with  modification  or  re¬ 
placement.  These  estimates  can  be  obtained  for  various  discount  rates. 


acquisition  costs,  and  economic  lifetimes.  COSTCASTER  also  enables  the 
cost  analyst  to  estimate  the  cost  associated  with  delaying  a  modifica¬ 
tion/replacement  decision  for  various  discount  rates,  acquisition  costs, 
and  economic  lifetimes. 

In  short,  COSTCASTER  allows  the  analyst  to  see  quickly  what  effect 
different  assumptions  have  on  the  life  cycle  costs  of  ground  C-E  equip¬ 
ment.  This  knowledge  of  the  life  cycle  costs  of  a  number  of  alternative 
end  items,  combined  with  an  understanding  of  differences  in  operational 
effectiveness,  will  be  of  great  use  to  the  analyst  in  the  performance 
of  trade-off  analysis. 

B.  CURRENT  STATUS  OF  THE  DATA  BASE 

C-E  data  is  currently  available  for  only  two  years.  At  least 
three  years  of  data  are  needed  to  implement  COSTCASTER.  Therefore, 
the  examples  given  in  this  report  are  not  based  on  data  obtained  from 
the  C-E  system.  Instead,  they  are  based  on  data  obtained  from  the 
Logistics  Support  Cost  (LSC)  model. 

The  LSC  model,  which  is  described  in  AFR  400-63  Vol.  2,  contains 
only  five  cost  categories,  instead  of  the  nineteen  categories  provided 
by  the  C-E  system.  These  five  categories  are:  base  maintenance  per¬ 
sonnel,  maintenance  materiel,  transportation  and  packaging,  depot  main¬ 
tenance,  and  replacement  investment.  However,  the  COSTCASTER  programs 
are  capable  of  analyzing  data  from  any  group  of  cost  categories,  as 
well  as  a  single  cost  category,  provided  the  data  is  available. 


C.  USER  INPUTS 


The  noninteractive  portion  of  COSTCASTER  calculates  break-even 
reduction  points  (BERPs) .  which  provide  preliminary  indications  of 
the  raodif ication/replaceraent  potential  of  C-E  end  items.  This  portion 
of  the  model  has  no  user  inputs.  In  practice,  an  analyst  will  be 
working  with  a  copy  of  the  BERP  tables,  rather  than  the  actual  program 
which  need  be  run  only  once  each  year,  producing  hard-copy  outputs, 
microfiche,  or  a  disk  file  for  on-line  access. 

User  inputs  for  the  interactive  portion  of  COSTCASTER  are  speci¬ 
fied  via  two  input  screens,  which  display  a  series  of  questions  and 
default  responses  regarding  user  assumptions.  The  first  screen 
(Figure  I)  gives  the  user  the  option  of  specifying  the  following  in¬ 
puts: 

1)  the  TMS  to  be  analyzed, 

2)  the  discount  rate  (if  not  specified,  10%  is  used), 

3)  the  acquisition  cost  of  the  modified/replacement  item 
(if  not  specified,  the  unit  price  of  the  current  TMS  is 
used) , 

4)  the  remaining  economic  life  of  the  current  TMS  (if  not 
specified,  10  years  is  used), 

5)  the  economic  life  of  the  modified/replacement  item 
(if  not  specified,  10  years  is  used), 

and  6)  the  weights  to  be  used  in  the  prediction  submodel  (if  not 
specified,  equal  weights  are  used). 

The  analyst  also  has  the  option  of  requesting  the  same  inputs  as  the 
last  time  the  program  was  used.  If  the  analyst  requests  the  same  in¬ 
puts  as  last  time,  this  screen  is  redisplayed  with  the  old  inputs.  The 
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*•*  COSTCASTER  •** 

PLEASE  ENTER  THE  INPUTS  YOU  WANT  COSTCASTER  TO  USE  FOR 
THIS  ANALYSIS  ANO  PRESS  RETURN. 

WOULD  YOU  LIKE  TO  USE  THE  SAME  INPUTS 
AS  LAST  SESSION?  NO 

WHAT  TMS  WOULD  YOU  LIKE  TO  ANALYZE?  _ 

WHAT  DISCOUNT  RATE  WOULD  YOU  LIKE  TO  USE?  10X 

WHAT  IS  THE  ACQUISITION  COST  OF  THE  MO" /REPLACEMENT  TMS?  $ _ 

(IF  NOT  SPECIFIED.  UNIT  PRICE  OF  CURRENT  TMS  USED) 

WHAT  IS  THE  REMAINING  ECONOMIC  LIFE  OF  THE  CURRENT  TMS?  10  YEARS 

WHAT  IS  THE  ECONOMIC  LIFE  OF  THE  MOD/REPLACEMENT  TMS?  10  YEARS 

TYPE  OF  WEIGHTING  IN  THE  PREDICTION  SUBMODEL?  EQUAL 
(EQUAL  OR  LINEAR) 


Figure  1:  COSTCASTER  Input  Screen  Requesting  User  Assumptions. 

The  Default  Values  are  Displayed  Where  Appropriate. 
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user  then  has  the  option  of  changing  these  inputs,  or  of  pressing  the 
return  key  to  display  the  second  input  screen. 

This  screen  (Figure  2)  gives  the  user  the  option  of  specifying: 

1)  the  cost  categories  used  for  predictions  and  subsequent  trade¬ 
off  analysis  (if  not  specified,  all  of  the  cost  categories 
are  used) , 

and  2)  the  percentage  reduction  in  O&S  costs  expected  to  result  from 
modification  or  replacement,  for  each  of  the  categories  used 
(if  not  specified,  50%  is  used  for  each  category). 

As  with  the  first  input  screen,  the  user  has  the  option  of  requesting 
the  same  inputs  as  were  used  previously.  If  the  analyst  wants  to  use 
the  same  inputs  as  last  time,  this  screen  is  redisplayed  with  the  old 
inputs.  The  user  then  has  the  option  of  changing  these  inputs,  or  of 
pressing  the  return  key  to  display  the  COSTCASTER  output  menu  (see 
Figure  3),  which  gives  the  analyst  a  list  of  outputs  which  can  be  dis¬ 
played  by  the  program.  The  outputs  listed  in  the  menu  are  obtained 
by  pressing  appropriate  function  keys. 


D.  COSTCASTER  OUTPUTS 

This  section  describes  the  output  products  currently  produced  by 
the  COSTCASTER  prototype  program.  Seven  tables  and  three  graphs  may 
be  obtained  from  the  program.  Several  sample  output  products  are  given 
in  Section  III.  The  sample  outputs  illustrate  the  detailed  example 
given  in  that  section. 
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•••  COSTCASTER  •** 


PLEASE  INDICATE  BELOW  THOSE  COST  CATEGORIES  WHICH  YOU  WOULD  LIKE  TO  USE  FOR 
THIS  ANALYSIS  BY  PUTTING  A  Y(YES)  OR  N<NO>  NEXT  TO  THE  APPROPRIATE  CATEGORY. 
YOU  MAY  ALSO  INDICATE  THE  EXPECTED  COST  REDUCTION  ASSOCIATED 
WITH  THE  MOO/REPLACEMENT  TMS. 


DO  YOU  WANT  TO  USE  THE  SAME  CATEGORIES  AS  LAST  SESSION?  NO 


COST  CATEGORY 

t  REDUCTION 

COST  CATEGORY 

%  REDUCTION 

OPERATIONS  PERSONNEL 

Y 

60 

REAL  PROPERTY  MAI NT. 

Y 

60 

BASE  MAINTENANCE  PERS. 

Y 

60 

BASE  COMMUNICATIONS 

Y 

60 

ADMINISTRATIVE  PERS. 

Y 

60 

MEDICAL( HEALTH  CARE) 

Y 

60 

SUPPLY  SUPPORT  PERS. 

Y 

60 

TOY 

Y 

60 

FUEL 

Y 

60 

PCS 

Y 

60 

MAINTENANCE  MATERIEL 

Y 

60 

GENERAL  DEPOT  SUPPORT 

Y 

60 

UTILITIES 

Y 

60 

ENGINEERING  SUPPORT 

Y 

60 

DEPOT  MAINTENANCE 

Y 

60 

TRANS.  AND  PACKAGING 

Y 

60 

REPLACEMENT  INVESTMENT 

Y 

60 

ADVANCED  TRAINING 

Y 

60 

BASE  OPERATING  SUPPORT 

Y 

60 

Figure  2:  COSTCASTER  Input  Screen  Requesting  User  Selection  of 
Cost  Categories  and  Percentage  Reduction  in  Costs  for 
Each  Category  Selected. 


***  COSTCASTER  *** 

WHICH  OF  THE  FOLLOWING  COSTCASTER  OUTPUTS  WOULD  YOU  LIKE  TO  SEE? 

PF1  -  OATA  INPUT  TABLE 

PF2  -  DATA  INPUT  TABLE  LISTED  BY  COST  CATEGORY 

PF3  -  TABLE  OF  COST  PREDICTIONS  AND  ASSOCIATED  PREDICTION  INTERVALS 

PF4  -  TABLE  OF  PREDICTION  DIAGNOSTICS 

PF6  -  COST  AVOIDANCE  TABLES 

PF6  -  WHENBUY  TABLES 

PF7  -  MAINTENANCE  TABLES 

PF8  -  SAVINGS  TABLE 

PF9  -  EXIT 


Figure  3:  Menu  Displaying  List  of  COSTCASTER  Output  Options.  The 
Data  Input  Table  (PF1)  and  Maintenance  Tables  (PF7)  Have 
Not  Been  Implemented  in  This  Prototype  Program  Because 
of  Limitations  on  the  Current  Data  Base. 


1.  Table  of  Break-Even  Reduction  Points 


COSTCASTER  produces  a  table  containing  the  break-even  reduction 
point  (BERP) ,  NSN,  SRD,  nomenclature,  estimated  ten  year  unit  O&S  cost, 
unit  price,  and  average  inventory  for  every  TMS  in  the  data  base.  These 
tables  can  be  sorted  by  NSN,  SRD  or  TMS,  or  by  increasing  BERP. 

The  BERP  provides  a  preliminary  estimate  of  the  fractional  reduc¬ 
tion  in  total  O&S  costs  necessary  for  a  new  or  modified  item  to  "pay 
for  itself"  over  the  next  ten  years.  That  is,  the  BERP  estimates  the 
reduction  needed  for  the  ten-year  savings  in  O&S  costs  to  offset  the 
acquisition  cost/modif ication  cost.  The  BERP  may  be  used  to  identify 
those  end  items  which  have  high  O&S  costs  relative  to  their  unit  prices 
and  are  thus  good  candidates  for  replacement  or  modification.  The 
BERP  is  calculated  assuming  that  the  economic  lifetime  of  the  modified 
or  replacement  end  item  is  ten  years,  the  remaining  economic  lifetime 
of  the  current  end  item  is  ten  years,  the  discount  rate  is  10%,  and 
the  acquisition  cost  of  the  modified  or  replacement  end  item  is  the 
same  as  the  unit  price  (last  buy  price)  of  the  current  item. 


2.  Table  of  Historical  Costs 


3.  Predicted  Costs  and  Associated  95%  Prediction  Intervals 


A  third  table  gives  the  user  an  estimate  of  future  O&S  costs  for 
the  current  end  item  as  well  as  95%  prediction  intervals  for  these 
estimates.  These  intervals  indicate  how  far  actual  future  costs  might 
reasonably  be  expected  to  differ  from  the  predicted  future  costs.  The 
user  has  the  option  of  specifying  the  weights  used  in  the  prediction 
submodel  (either  equal  or  linear),  and  the  remaining  economic  life  of 
the  current  end  item,  which  determines  how  many  years  ahead  the  O&S 
costs  will  be  forecasted. 

The  predicted  costs  and  prediction  intervals  can  also  be  presented 
in  graphical  form  by  running  a  separate  batch  program.  All  of  these 
costs  are  in  current  year  dollars.  Historical  cost  data  in  the  COST- 
CASTER  data  base  is  input  to  the  cost-prediction  submodel,  which 
employs  statistical  regression  techniques  (weighted  least  squares)  to 
forecast  O&S  costs  for  future  years.  (The  mathematical  details  of 
weighted  least  squares  and  the  associated  prediction  intervals  may  be 
found  in  [2].)  As  specified  by  the  user,  these  predictions  may  be  made  for 

(1)  Total  O&S  costs, 

(2)  Costs  for  a  single  C-E  O&S  cost  category  (e.g.,  base 
maintenance  personnel) , 

and  (3)  For  any  group  of  C-E  O&S  cost  categories  of  interest 
to  the  user  (e.g.,  all  personnel  costs). 

4.  Table  of  Prediction  Diagnostics 


A  fourth  table  provides  the  prediction  diagnostics  for  the  per- 


unit  cost  predictions  associated  with  the  end  items.  The  residuals, 
relative  accuracy  index,  stability  index,  and  precision  index  are 
given . 

The  residuals  are  the  differences  between  the  observed  costs 
and  the  predicted  costs.  Since  these  residuals  measure  the  absolute 
accuracy  of  the  forecasts,  they  tend  to  increase  as  costs  increase. 

A  more  stable  measure  of  accuracy  is  given  by  the  relative  accuracy 
index,  which  is  the  ratio  of  the  residual  to  the  predicted  value, 
expressed  as  a  percentage.  Small  relative  accuracy  indices  indicate 
accurate  forecasts. 

The  stability  index  measures  the  similarity  of  models  fit  in 
consecutive  years.  In  particular,  it  measures  the  relative  differences 
between  their  forecasts.  If  the  cost-prediction  process  is  performing 
well,  then  these  differences  will  be  small  in  absolute  value. 

The  precision  index  measures  the  width  of  the  prediction  interval 
relative  to  the  predicted  value.  Precision  indices  which  are  small  in 
absolute  value  are  indicative  of  more  reliable  forecasts. 

It  is  very  difficult  to  forecast  costs  from  only  a  few  years 
of  historical  data.  Therefore,  the  prediction  diagnostics  will  usually 
be  fairly  large  initially.  However,  if  the  model  being  fit  is  an 
adequate  approximation  of  the  true  cost  behavior  for  a  given  TMS , 
these  indices  will  tend  toward  zero  as  more  historical  data  is 
obtained  for  that  end  item. 
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5.  Table  of  Expected  Total  Savings  in  O&S  Costs 

A  fifth  table  shows  the  expected  total  savings  in  O&S  costs  per 
unit  during  the  remaining  economic  life  of  the  current  item  for  10, 

30,  50,  70,  and  90%  reductions  in  0&S  costs.  This  table  gives  the  ex¬ 
pected  savings  as  a  function  of  the  percent  reduction  in  0&S  costs  and 
the  economic  life  of  the  replacement  end  item.  The  table  not  only  pro¬ 
vides  estimates  of  savings,  but  also  makes  it  simple  to  examine  the  sen¬ 
sitivity  of  these  estimates  to  the  assumptions  about  the  reduction  in 
O&S  costs  and  the  economic  life.  This  information  can  also  be  presented 
in  graphical  form  by  running  a  separate  batch  program.  The  user  has  the 
option  of  specifying  the  acquisition  cost  of  the  modified/replacement 
item,  the  remaining  economic  life  of  the  current  item,  and  the  dis¬ 
count  rate  used  in  constructing  the  table,  all  of  which  affect  the 
calculation  of  the  expected  savings. 

6.  Table  of  Expected  Cost  Avoidance 

A  sixth  table  gives  the  expected  per  unit  cost  avoidance  for  10, 

30,  50,  70,  and  90%  reductions  in  O&S  costs  during  the  remaining  economic 
life  of  the  current  item.  This  table  shows  estimated  cost  avoidance 
as  a  function  of  time  and  the  expected  reduction  in  0&S  costs,  and 
provides  visibility  of  the  short-term  benefits  expected  as  a  result 
of  replacement  or  modification.  This  information  can  also  be  presented 
in  graphical  form  by  running  a  separate  batch  program.  The  user  has 
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the  option  of  specifying  the  acquisition  cost  of  the  modified/replace¬ 
ment  item,  the  remaining  economic  life  of  the  current  end  item  and 
the  discount  rate  used  in  constructing  the  table,  all  of  which  affect 
the  calculation  of  the  expected  savings. 

The  expected  cost  avoidance  is  summed  over  different  time  periods, 
ranging  from  one  year  to  the  remaining  economic  life  of  the  current 
end  item.  It  is  calculated  as  the  estimated  reduction  in  O&S  costs 
minus  the  cost  of  modification  or  replacement.  The  total  savings  is 
the  cost  avoidance  over  the  remaining  life  of  the  current  item  plus  the 
residual  value  of  the  modified  or  replacement  item. 

7.  Table  of  Expected  Savings  If  Replacement  is  Delayed  (WHENBUY  Table) 


A  sevent.i  table  shows  the  expected  per-unit  savings  over  the 
life  of  the  current  TMS  that  would  result  if  modification  or  replacement 
of  the  current  end  item  were  delayed  until  some  future  year.  The 
user  has  the  option  of  specifying  the  acquisition  cost  of  the  modified/ 
replacement  item,  the  remaining  economic  life  of  the  current  end  item 
and  the  discount  rate  used  in  constructing  the  table,  all  of  which 
affect  the  calculation  of  the  expected  savings.  In  addition,  the  user 
can  specify  the  exoected  reduction  in  O&S  costs  for  each  category 
that  will  result  from  modifying  or  replacing  the  current  end  item. 


III.  EXAMPLE 


This  section  provides  an  example  illustrating  the  use  of  COSTCASTER 
for  making  cost  predictions  and  performing  trade-off  analyses.  O&S  cost 
data  for  the  AN /PRC-77  radio  set  is  used  in  the  illustration.  This  data 
was  obtained  from  the  LSC  model  [3]  for  FY77-FY81.  The  sample  COSTCASTER 
output  products  for  this  example  are  given  at  the  end  of  this  section. 

As  a  first  step  in  determining  whether  the  AN/PRC-77  radio  set  is 
a  good  candidate  for  modification  or  replacement,  the  analyst  would  look 
up  this  TMS  in  the  BERP  table.  Table  1  provides  BERPs  for  a  sample  of 
four  C-E  end  items,  using  data  from  the  LSC  model  for  FY77-FY81.  Of 
course,  in  the  future  the  complete  C-E  data  base  will  be  used  and  all 
end  items  in  that  data  base  will  appear  in  the  BERP  table.  This  table 
will  be  updated  each  year  as  new  cost  data  becomes  available. 

The  BERP  for  the  AN /PRC-77  is  .37,  suggesting  that  if  the  O&S  costs 
for  a  replacement  item  were  at  least  37%  less  than  those  for  the  current 
TMS,  then  replacement  might  be  warranted  from  an  economic  standpoint. 

The  other  three  end  items  in  Table  1  have  BERPs  greater  than  one.  For 
those  items,  the  acquisition  cost  (estimated  by  the  last  buy  price)  is 
larger  than  the  expected  total  ten-year  O&S  cost.  No  reduction  in  O&S 
costs  could  offset  the  expense  of  replacement  unless  the  new  item  also 
had  a  lower  acquisition  cost.  Of  course,  modification  of  the  end  item 
might  be  desirable. 

The  calculations  used  to  produce  the  BERP  table  are  based  on  a 
rough  set  of  initial  assumptions  about  the  discount  rate,  the  cost  of 


replacement,  and  the  economic  lifetimes  of  both  the  current  and  the 
replacement  end  items.  These  assumptions  will  not  always  be  accurate. 
However,  the  BERP  table  is  intended  only  as  an  initial  screening  de¬ 
vice  for  identifying  replacement/modification  candidates.  More  refined 
assumptions  are  needed  to  obtain  good  estimates  of  the  economic  benefits 
associated  with  modification  or  replacement.  COSTCASTER  is  designed  to 
allow  the  analyst  to  change  these  assumptions  and  to  examine  the  effects 
of  these  changes  on  the  estimates  produced  by  the  model. 

Historical  O&S  cost  data  for  the  AN/PRC-77  radio  set  is  given  in 
Table  2.  Suppose  that  the  cost  analyst  knows  that  this  end  item  can 
be  modified  at  a  cost  of  $1,000  or  replaced  at  a  cost  of  $3,500,  and 
wants  to  determine  which  of  these  options  has  the  lowest  life  cycle 
costs  relative  to  the  AN/PRC-77.  In  order  to  make  this  determination, 
the  analyst  must  specify  the  following  quantities: 

1)  the  remaining  economic  life  of  the  current  TMS, 

2)  the  economic  life  of  the  replacement  or  modified  TMS, 

3)  the  percentage  reduction  in  0&S  costs, 
and  4)  the  discount  rate. 

These  quantities  will  seldom  be  known  exactly  but  may  usually  be  esti¬ 
mated  with  some  degree  of  precision.  By  allowing  the  analyst  to  change 
these  assumptions,  COSTCASTER  provides  the  means  of  determining  their 
effects  on  the  estimates  of  savings. 

Suppose  that  the  analyst  estimates  that  the  current  TMS  will  last 
five  more  years,  and  that  the  economic  lives  of  the  modified  and  replace 
ment  items  are  ten  and  fifteen  years  respectively.  The  analyst  also 
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thinks  that  the  reduction  in  O&S  costs  for  the  modified  end  item  will 
be  at  least  30%  and  at  most  50%  whereas  the  reduction  in  O&S  costs  for 
the  new  item  will  be  at  least  50%  and  at  most  70%.  The  analyst  is  not 
sure  what  the  discount  rate  will  be,  but  thinks  that  it  will  be  close 
to  10%. 

The  first  thing  the  analyst  looks  at  are  the  forecasts  and  associ¬ 
ated  95%  prediction  intervals  of  future  O&S  costs  for  the  radio  set 
(Table  3  and  Figure  4)  and  the  prediction  diagnostics  associated  with 
these  forecasts  (Table  4).  (Note  that  the  optional  linear  weighting 
scheme  is  used  in  this  example.)  Inspection  of  the  forecasts  reveals 
they  are  nearly  constant  over  time,  and  that  the  prediction  intervals 
for  the  forecasts  are  fairly  narrow  (the  endpoints  of  the  prediction 
intervals  are  always  within  $153  of  the  forecasts),  indicating  that 
the  forecasts  are  probably  accurate.  The  prediction  diagnostics  tend 
to  confirm  this,  since  the  residuals,  relative  accuracy  indices,  stability 
indices,  and  precision  indices  are  in  most  cases  small  in  absolute  value. 
(The  FY80  precision  index  is  large,  but  this  is  to  be  expected.  That 
quantity  measures  the  precision  of  forecasts  made  using  only  the  first 
three  years  of  historical  data.) 

Table  3  also  provides  a  revised  BERP  value,  based  on  the  assump¬ 
tions  made  by  the  user.  It  depends  on  the  weighting  scheme,  the  dis¬ 
count  rate,  the  economic  life  of  the  replacement  item,  and  the  remaining 
life  of  the  current  item.  In  this  example,  only  the  weighting  scheme 
has  been  changed  from  the  default  value  and  the  BERP  differs  only 
slightly  from  that  given  in  Table  1  (36%  versus  37%). 
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In  order  to  determine  how  the  expected  total  cost  for  the  modi¬ 
fied  or  replacement  TMS  compares  wi^h  the  projected  O&S  cost  for  the 
AN/PRC-77,  the  analyst  looks  at  the  total  savings  tables  for  a  dis¬ 
count  rate  of  10%.  Table  5  shows  the  expected  savings  associated  with 
the  replacement  item  as  a  function  of  the  percent  reduction  in  O&S 
costs  and  the  economic  life  of  the  replacement  item.  If  this  economic 
life  is  15  years,  then  the  expected  total  savings  range  from  $573/unit 
(50%  reduction)  to  $1623/unit  (70%  reduction) ,  as  shown  in  the  last 
line  of  Table  5. 

Table  6  shows  the  expected  total  savings  associated  with  the  modi¬ 
fied  end  item.  The  last  line  in  the  table  shows  these  savings  for  a 
10  year  economic  lifetime.  If  the  percent  reduction  in  O&S  costs  is 
between  30%  and  50%,  then  the  estimated  total  savings  are  between 
$885/unit  and  $1935/unit.  This  range  of  expected  savings  is  slightly 
higher  than  that  for  the  replacement  item,  but  the  two  ranges  overlap 
to  such  an  extent  that  it  is  difficult  to  choose  between  the  two  al¬ 
ternatives  . 

Figure  5  is  a  contour  plot  showing  the  savings  expected  to  result 
from  replacing  the  current  item.  This  plot  corresponds  to  Table  5  and 
allows  the  analyst  to  easily  examine  the  sensitivity  of  the  estimates 
to  the  assumptions  about  the  percent  reduction  in  O&S  costs  and  the 
economic  life  of  the  replacement  item. 

Tables  7  and  8  show  the  expected  short-term  cost  avoidance  associ¬ 
ated  with  the  replacement  and  modified  items,  respectively.  From 
Table  7  it  can  be  seen  that  if  the  percentage  reduction  in  O&S  costs 
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for  the  replacement  item  is  50%,  that  item  cannot  be  amortized  during 
the  next  five  years  (the  remaining  lifetime  of  the  current  item) .  The 
corresponding  contour  plot  (Figure  6)  shows  that  a  66%  reduction  in 
O&S  costs  is  necessary  for  the  replacement  acquisition  cost  ($3,500) 
to  be  amortized  in  that  amount  of  time. 

In  contrast  to  the  replacement  scenario.  Table  8  indicates  that 
the  modification  costs  ($1 ,000 /unit)  can  be  amortized  within  three  years 
if  the  reduction  in  O&S  costs  is  at  least  30%.  Modification  would  re¬ 
sult  in  greater  short-term  savings  than  would  replacement.  However, 
the  replacement  item  might  still  be  a  better  investment  because  of  its 
longer  economic  life  (or,  equivalently,  greater  residual  value  after 
five  years) . 

At  this  point  it  would  be  clear  to  the  analyst  that  either  modi¬ 
fication  or  replacement  would  result  in  economic  benefits.  However, 
it  would  not  be  clear  which  option  was  preferable.  This  uncertainty 
is  primarily  a  result  of  not  knowing  precisely  the  percent  reduction 
in  O&S  costs  which  would  result  from  each  of  the  two  alternatives. 
Therefore,  instead  of  considering  a  range  of  possible  reductions,  the 
analyst  might  specify  the  best  available  estimate  for  each  of  the  two 
options. 

Suppose  the  analyst  thinks  that  replacing  the  AN/PRC-77  would 
result  in  a  65%  reduction  in  base  maintenance  personnel  costs  and  a 
50%  reduction  for  the  other  cost  categories.  Given  these  specifica¬ 
tions,  COSTCASTER  autoraa >.ically  combines  the  individual  estimates  into 
an  estimate  of  the  percent  reduction  in  total  O&S  costs.  (For  this 
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example,  base  maintenance  personnel  costs  account  for  97%  of  the  total 
O&S  costs,  so  only  the  reduction  for  that  category  is  important.)  This 
weighted  estimate,  as  well  as  estimates  of  the  effects  of  delaying  the 
modification/replacement  decision,  can  be  obtained  from  the  WHENBUY 
table. 

Table  9  is  a  WHENBUY  table  for  the  replacement  radio  set,  using  the 
analyst's  best  estimates  of  economic  lifetimes,  percent  reduction  in  O&S 
costs,  discount  rate,  and  acquisition  costs.  It  can  be  seen  from  the 
table  that  immediate  replacement  would  result  in  a  savings  of  $1342/unit 
over  the  next  five  years.  Delaying  the  decision  would  result  in  lesser, 
but  still  positive,  savings. 

Table  10  shows  the  results  of  delaying  the  modification  decision. 
Immediate  modification  would  result  in  a  savings  of  $  1410/unit  over  the 
next  five  years,  which  is  slightly  more  than  would  result  from  replace¬ 
ment.  In  fact,  at  any  time  in  the  next  four  years,  modification  would 
be  preferable  to  replacement.  Of  course,  the  estimated  differences  in 
savings  for  the  two  options  are  only  slight  and  depend  on  a  number  of 
assumptions,  some  of  which  may  be  incorrect. 

In  a  situation  like  this,  where  the  economic  benefits  resulting 
from  two  options  are  estimated  to  be  nearly  equal,  the  final  decision 
would  probably  hinge  on  other  factors.  Primarily,  the  analyst  would 
need  to  know  (or  estimate)  the  relative  operational  effectiveness  of 
the  modified  and  replacement  items.  COSTCASTER  is  not  designed  to  con¬ 
sider  the  operational  effectiveness  of  C-E  end  items,  but  rather  to  deal 
solely  with  the  economic  factors  involved  in  modification/replacement 
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TABLE  OF  BREAK-EVEN  REDUCTION  POINTS  FOR  CE  END  ITEMS 
IN  ALPHABETICAL  ORDER  BY  TMS. 


>- 
LU  ceL 
CD  O 

>> 

<Z 


su>u>ea 

BNNB 

— <  ^  LO  U> 
NU) 

eo 


z  a: 

30. 


ea  oo  oo  cm 
(9  cor^r** 

SSUIH 

ea  nutu) 

CQ  ri  H 


1 — 
00 
o 
eg  U 

< 

^  «\l  U>  00 

LU  00 

CO  ^  *1*  00 

!  >■  oO 

CM  HN 

i  O 

CO  00  hid 

■  z 

10  0>  r-4 

1  UI  ►— 
il-*-* 

z 

3 

>o 

UJ  •— <  H- 

I  i —  z 

X  O  ►-< 
<30 
UjDO. 
O'  Ui 

co  or 


00  In.  -«  CM 

convB 

UBN<-I 


eg 

3 

< 

_l 

O 

z 

£ 

o 


X 


333- 


o 

eg 

in 


X  LO  -I  > 
<ZX3 
In  CD  00  O 


(/I 


N<rBc> 

CM  CM  Cn  CO 
00  IN.  <3  S3 

oo  co  <n  us 
co  ca  oo  ta 

fOCOW 
io  <7i  u>  «r 
BOBS 
SBBB 
s  ca  ea  to 
cm  cm  *r  CB 
oo  oo  oo  oo 
ID  U>  1010 


10Cn  CO 
00  N  O' 

I  I  I 
OOV)<C 

gC  oc  a.  cm 
JEO-I-X 

“ssa 


Table  1:  Table  of  Break-Even  Reduction  Points  (BERPs) 
for  a  Sample  of  Four  C-E  End  Items. 
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AN/PRC-77  RADIO-SET  INPUT  TABLE< COSTS  ARE  S/UNIT  IN  FY82  S> 


COST  CATEGORY 

FY77 

FY78 

FY79  1 

FY80 

FY81 

OPERATIONS  PERSONNEL 

ft 

• 

ft 

ft 

ft 

BASE  MAINTENANCE  PERS. 

1381 

1383 

1374 

1373 

1384 

ADMINISTRATIVE  PERSONNEL 

* 

• 

ft 

ft 

ft 

SUPPLY  SUPPORT  PERSONNEL 

* 

• 

ft 

ft 

ft 

FUEL 

* 

ft 

ft 

ft 

ft 

MAINTENANCE  MATERIEL 

13 

14 

10 

9 

14 

UTILITIES 

* 

* 

ft 

ft 

ft 

DEPOT  MAINTENANCE 

69 

6 

61 

2 

6 

REPLACEMENT  INVESTMENT 

0 

0 

0 

0 

0 

BASE  OPERATIONS  SUPPORT 

* 

ft 

ft 

ft 

ft 

REAL  PROPERTY  MAINT. 

* 

ft 

ft 

ft 

ft 

COFMUNICATIONS 

• 

ft 

ft 

ft 

ft 

TEMPORARY  DUTY 

• 

ft 

ft 

ft 

ft 

PERM.  CHANGE  OF  STATION 

* 

ft 

ft 

ft 

ft 

MEDICAL 

• 

ft 

ft 

ft 

ft 

GENERAL  DEPOT  SUPPORT 

* 

ft 

ft 

ft 

ft 

ENGINEERING  SUPPORT 

* 

ft 

ft 

ft 

ft 

TRANSPORT.  AND  PACKAGING 

2 

0 

3 

0 

0 

ADVANCED  TRAINING 

* 

ft 

ft 

ft 

ft 

fl 


Table  l’.  Historical  O&S  Costs  by  Category  for  the 
aN /PRC-77  Radio  Set.  Asterisks  are  Used 
for  Those  Categories  for  Which  the  LSC 
Model  Does  Not  Provide  Data. 
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77 

1 

1465 

* 

* 

78 

2 

1403 

* 

• 

79 

3 

1448 

* 

* 

80 

4 

1385 

• 

* 

81 

5 

1406 

* 

* 

82 

6 

* 

1393 

(1305.1486) 

83 

7 

• 

1388 

(1293,1489) 

84 

8 

* 

1383 

(1282,1493) 

85 

9 

* 

1379 

(1271,1496) 

86 

10 

* 

1376 

(1262,1500) 

87 

11 

* 

1373 

(1253,1603) 

88 

12 

* 

1370 

(1245,1607) 

89 

13 

* 

1367 

(1238,1610) 

90 

14 

* 

1366 

(1231,1513) 

91 

15 

* 

1363 

(1225,1516) 

BASED  ON  USER  INPUTS. BERP=  0.36  LINEAR  WEIGHTS  ARE  USED. 


Table  3:  Cost  Predictions  and  Associated 
95%  Prediction  Intervals. 
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Graphical  Presentation  of  Predicted  Costs  for  the  AN/PRC-77 
Radio  Set.  Solid  Curve  Connects  Predicted  Costs.  Dashed 
Curves  Provide  95%  Prediction  Limits. 


PREDICTION  DIAGNOSTICS  FOR  THE  AN/PRC-77  RADIO-SET 
ACCURACY  INDICES 


RESIDUAL 

RELATIVE  ACCURACY 

-48 

-3.3% 

15 

1.1% 

FY 

STABILITY  INDEX 

81 

-2.9% 

82 

0.8% 

FY 

PRECISION  INDEX 

80 

48.6% 

81 

11.8% 

82 

6.2% 

Table  4:  Prediction  Diagnostics 


TOTAL  SAVINGS  OVER  THE  LIFE  OF  ITEM  REPLACING 
THE  AN/PRC-77  RADIO_SET 
DISCOUNT  RATE- 10*  ACQUISITION  COST- *3500 

LIFE  OF  REPLACEMENT  PERCENT  REDUCTION  IN  SUPPORT  COSTS 


10* 

30* 

60* 

70* 

90* 

5 

-2976 

-1926 

-876 

174 

1223 

6 

-2613 

-1663 

-614 

636 

1586 

7 

-2364 

-1306 

-266 

795 

1844 

8 

-2160 

-1111 

-61 

989 

2038 

9 

-2009 

-960 

90 

1140 

2189 

10 

-1889 

-839 

211 

1260 

2310 

11 

-1790 

-740 

309 

1359 

2409 

12 

-1707 

-668 

392 

1441 

2491 

13 

-1638 

-688 

461 

1611 

2661 

14 

-1678 

-628 

521 

1671 

2620 

15 

-1626 

-477 

673 

1623 

2672 

Table  5:  Expected  Savings  Per  Unit  for  the  Replacement  Item. 


TOTAL  SAVINGS  OVER  THE  LIFE  OF  ITEM  REPLACING 
THE  AN/PRC-77  RADIO-SET 
DISCOUNT  RATE=10X  ACQUISITION  COST-X1000 


LIFE  OF  REPLACEMENT  PERCENT  REDUCTION  IN  SUPPORT  COSTS 


10X 

30X 

50X 

70X 

90X 

6 

-476 

674 

1624 

2674 

3723 

6 

-372 

678 

1728 

2777 

3827 

7 

-298 

762 

1801 

2851 

3901 

8 

-242 

807 

1867 

2907 

3966 

9 

-199 

860 

1900 

2960 

3999 

10 

-165 

885 

1936 

2984 

4034 

Table  6:  Expected  Savings  Per  Unit  for  the  Modified  Item. 


AN/PRC-77  RADIO  SET 

Expected  Total  Savings  ($/Unit)  by  Replacing  TMS  (FY82  Dollars) 


Remaining  Economic  Life  of  Current  End  Item  is  5  Years 
Acquisition  Cost  is  $3500  Discount  Rate  is  10% 


1 


EXPECTED  COST  AVOIDANCE  AFTER  N  YEARS 
FOR  THE  AN/PRC-77  RADIO-SET 
OISCOUNT  RATE =10%  ACQUISITION  COST- $3500 

YEARS  AFTER  PURCHASE  PERCENT  REDUCTION  IN  SUPPORT  COSTS 


1 

10% 

-3373 

30% 

-3120 

50% 

-2867 

70% 

-2614 

90% 

-2361 

2 

-3259 

-2776 

-2294 

-1811 

-1329 

3 

-3156 

-2464 

-1774 

-1084 

-393 

4 

-3061 

-2182 

-1303 

-424 

455 

6 

-2976 

-1926 

-876 

174 

1223 

Table  7:  Expected  Cost  Avoidance  for  the  Replace¬ 
ment  Item. 
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EXPECTEO  COST  AVOIDANCE  AFTER  N  YEARS 
FOR  THE  AN/PRC-77  RADIO_SET 
DISCOUNT  RATE-10X  ACQUISITION  COST-X1000 

YEARS  AFTER  PURCHASE  PERCENT  REDUCTION  IN  SUPPORT  COSTS 


10X 

30X 

60X 

70X 

90X 

1 

-873 

-620 

-367 

-114 

139 

2 

-769 

-276 

206 

689 

1171 

3 

-666 

36 

726 

1416 

2107 

4 

-661 

318 

1197 

2076 

2966 

6 

-476 

674 

1624 

2674 

3723 

Table  8:  Expected  Cost  Avoidance  for  the  Modified 
Item. 


EXPECTED  SAVINGS  IF  REPLACEMENT  IS  MADE  N  YEARS  FROM  PRESENT 
AN/PRC-77  RADIO-SET 


NUMBER  OF  YEARS  <N)  TO  REPLACEMENT  SAVINGS 

0  1342 

1  986 

2  679 

3  416 

4  190 


NOTE:  SAVINGS  ARE  PER  UNIT  OVER  REMAINING  ECONOMIC 
LIFE  OF  CURRENT  TMS  <6  YEARS) 

ECONOMIC  LIFE  OF  CURRENT  TMS  -  6 
ECONOMIC  LIFE  OF  REPLACEMENT  TMS  ■  16 

PERCENTAGE  REDUCTION  IN  QAS  COSTS  ■  66* 

DISCOUNT  RATE  -  10* 

ACQUISITION  COST  -  3600 


Table  9:  WHENBUY  Table  for  the  Replacement  Item. 


EXPECTED  SAVINGS  IF  REPLACEMENT  IS  MADE  N  YEARS  FROM  PRESENT 
AN/PRC-77  RADIO-SET 


NUMBER  OF  YEARS  <N>  TO  REPLACEMENT  SAVINGS 

0  1410 

1  1066 

2  742 

3  464 

4  218 


NOTE.’  SAVINGS  ARE  PER  UNIT  OVER  REMAINING  ECONOMIC 
LIFE  OF  CURRENT  TMS  (6  YEARS) 

ECONOMIC  LIFE  OF  CURRENT  TMS  -  6 
ECONOMIC  LIFE  OF  REPLACEMENT  TMS  ■  10 

PERCENTAGE  REDUCTION  IN  04S  COSTS  -  40* 

DISCOUNT  RATE  -  10% 

ACQUISITION  COST  -  1000 


Table  10:  WHENBUY  Table  for  the  Modified  Item. 


IV.  PROGRAM  LOGIC 


The  interactive  portion  of  COSTCASTER  is  a  modular  computer 
program  which  allows  the  user  to  obtain  cost  predictions  and  perform 
trade-off  analyses  for  C-E  end  items.  The  main  program  serves 
primarily  to  organize  the  COSTCASTER  session  and  call  subroutines  to 
display  the  input  screens  and  output  menu.  This  menu  displays  a 
list  of  available  outputs  and  calls  various  subroutines  to  produce 
those  outputs. 

A  brief  description  of  each  program  module  is  given  on  the 
following  pages.  This  description  provides  information  about  the 
purpose  of  each  module  and  lists  other  modules  which  call  and  are 
called  by  it.  In  addition,  flowcharts  are  given  for  the  main 
program  and  the  output  menu  subroutine.  A  complete  listing  of 
the  program  is  given  in  the  appendix. 
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PROGRAM  MODULE  PURPOSE  CALLS  CALLED  BY 


COSTCASTER  MAIN  PROGRAM 


SUBROUTINE  MENUS 


«V"EC5S2!‘ON 

•  ^PREVIOUSLY' 


1 

NO 

r  T 

YES  1 

- - s 

t - -  - - ! 

! - ,  - t 

SUBROUTINE 

REO 


PERFORM 

REGRESSION 


SUBROUTINE 

COSTCAT 


HISTORICAL 
OS*  COSTS 


„  PRINT 
OPTION  NOT  , 

implemented 


I 


I 


SUBROUTINE 

OIAGNOSE 


PREDICTION 

DIAGNOSTICS 


I 


1 


SUBROUTINE 

COSTAVOIO 


COST  AVOIDANCE 
TABLE 


_ * _ 

_ * _ 

SUBROUTINE 

SUBROUTINE 

WMENBUY 

LIFESAVE 

VHENBUY 

TOTAL  SAVINGS 

TABLE 

TABLE 

I 


i 


V.  REFERENCES 

R 


[1]  Burns,  K.C.,  G.J.  Zunic,  D.E.  Smith,  J.G.  Levine,  and  R.L.  Gardner, 

"Methodology  Underlying  COSTCASTER,  A  Cost-Prediction  And 
Trade-Off  Model  for  Air  Force  Ground  C-E  Equipment," 

Technical  Report  No.  118-4,  Desmatics,  Inc.,  1984. 

[2]  Draper,  N.R.,  and  H.  Smith,  Applied  Regression  Analysis,  2nd 

ed. ,  John  Wiley  &  Sons,  New  York,  1981. 


[3]  U.S.  Air  Force,  Air  Force  Regulation  400-63,  Volume  II, 
"Communications-Electronics  Logistics  Support  Cost 
Management  Program,"  1979. 


I 


APPENDIX:  SOURCE  LISTING 

This  appendix  contains  a  source  listing  for  the  interactive 
portion  of  COSTCASTER.  This  program  is  currently  running  on  an 
IBM  4381  mainframe  computer.  The  program  is  written  in  REXX,  a 
high  level  programming  language  available  on  the  CMS  system. 

It  is  designed  to  run  interactively. 


/*  COSTCASTER  MENU 

TRACE  OFF 

NUMERIC  DIGITS  9 

/*  INTIALIZE  VARIABLES  */ 

DATAPOINT  «  100 

DATA. 7. 30  =  NO 

DATA. 9. 40  = 'AN/FCC-00' 

DATA. 11. 46=  10 

DATA. 13.60=  '?' 

DATA. 16.60=  1 
DATA. 18.60=  1 
DATA. 20. 60  -'EQUAL1 
DATA. 9. 68  •  NO 


DATA. 13.26 
DATA. 14.26 
DATA. 16.26 
DATA. 16.26 
DATA. 17.26 
DATA. 18.26 
DATA. 19.26 
DATA. 20. 26 
DATA. 21. 26 
DATA. 22. 26 
DATA. 13.66 
DATA. 14.66 
DATA. 16.66 
DATA. 16.65 
DATA. 17.66 
DATA. 18.65 
DATA. 19.66 
DATA. 20. 66 
DATA. 21. 65 
DATA. 22. 66 
DATA. 13.31 
DATA. 14.31 
DATA. 16.31 
DATA. 16.31 
DATA. 17.31 
DATA. 18.31 
DATA. 19.31 
DATA. 20. 31 
DATA. 21. 31 
DATA. 22. 31 
DATA. 13.71 
OATA. 14.71 
DATA. 16.71 
DATA. 16.71 
DATA. 17.71 
DATA. 18.71 
DATA. 19.71 
OATA. 20. 71 
DATA. 21. 71 
DATA. 22. 71 


Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 
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60 

50 

50 

50 

50 

50 

50 

50 

50 

60 

60 

50 

50 

50 

60 

50 

50 

50 

50 
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/* 

USE  OLD  INPUT? 

V 

/• 

TMS 

*/ 

/* 

DISCOUNT  RATE 

•/ 

/* 

ACQUISITION  COST 

V 

/• 

CURRENT  ECON  LIFE 

V 

/* 

MOD/REP  ECON  LIF 

*/ 

/* 

USE  WEIGHTS? 

*/ 

/• 

USE  OLD  INPUT 

*/ 

/• 

COST  1 

V 

/* 

COST  2 

V 

/• 

COST  3 

V 

/* 

COST  4 

*/ 

/* 

COST  6 

•/ 

/• 

COST  6 

V 

/* 

COST  7 

V 

/• 

COST  8 

•/ 

/* 

COST  9 

•/ 

/• 

COST  10 

*/ 

/* 

COST  11 

•/ 

/• 

COST  12 

•/ 

/* 

COST  13 

V 

/• 

COST  14 

•/ 

r 

COST  16 

*/ 

/• 

COST  16 

•/ 

/• 

COST  17 

*/ 

/* 

COST  18 

•/ 

/* 

COST  19 

•/ 

/* 

PHANTOM  COST 

V 

/• 

COST  1  REDUCTION 

V 

/• 

COST  2  REDUCTION 

•/ 

/* 

COST  3  REDUCTION 

V 

/* 

COST  4  REDUCTION 

*/ 

/* 

COST  6  REDUCTION 

*/ 

/* 

COST  6  REDUCTION 

*/ 

/• 

COST  7  REDUCTION 

*/ 

/• 

COST  8  REDUCTION 

•/ 

/* 

COST  9  REDUCTION 

•/ 

7* 

COST 10  REDUCTION 

*/ 

/• 

COST11  REDUCTION 

•/ 

/• 

COST 12  REDUCTION 

*/ 

/* 

COST 13  REDUCTION 

*/ 

/* 

COST 14  REDUCTION 

*/ 

/* 

C0ST16  REDUCTION 

*/ 

/• 

C0ST16  REDUCTION 

*/ 

/• 

C0STI7  REDUCTION 

V 

/• 

COST  18  REDUCTION 

*/ 

/• 

C0ST19  REDUCTION 

•/ 

/• 

PHANTOM  REDUCTION 

*/ 
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PREDFLAG-0 
WHENF LAG-0 
COSTF LAG-0 
LIFEFLAG-0 
DIAGFLAG-0 
COSTCATF LAG-0 

/•  DISPLAY  FIRST  MENU  AND  READ  IN  USER  CHANGES  */ 

CURSOR  -  ‘7  29' ; CALL  MENU1 

/•  IF  USER  WANTS  LAST  SESSIONS  INPUT,  SHOW  FIRST  MENU  WITH  OLD  INPUTS*/ 

IF  DATA. 7. 30  -  YES  THEN  CALL  OLD1 

/*  DISPLAY  SECOND  MENU  AND  READ  IN  USER  CHANGES  */ 

CURSOR  -  '9  67‘; CALL  MENU2 

/*  IF  USER  WANTS  LAST  SESSIONS  INPUT .SHOW  SECOND  MENU  WITH  OLO  INPUTS*/ 

IF  DATA. 9. 68  =  YES  THEN  CALL  0LD2  /*IF  USER  WANTS  OLD  INPUTS, DISPLAY  THEM  */ 
IF  ACQCOST-  ?  THEN  ACQCOST  -  -99  /*  IF  ACQ.  COST  NOT  SPECIFIED, SET  EQUAL  TO 
-99  V 

/*  DISPLAY  THIRD  MENU  AND  READ  IN  USER  CHANGES  */ 

CURSOR  -  ‘1  1' j CALL  MENU3 

RESTART:  /*  GO  HERE  IF  USER  WANTS  TO  QUIT  */ 

/•  OUTPUT  THE  USER  INPUTS  TO  A  FILE  CALLED  COST  DATA  A  */ 

EXECIO  1  DISKW  COST  DATA  A  1  '(STRING'  TMS  DISCRATE  ACQCOST, 

OLDLIFE  NEWLIFE  DATA. 20. 60  COST.l  COST. 2  COST. 3  COST. 4, 

COST. 6  COST. 6  COST. 7  COST. 8  COST. 9  COST. 10  COST. 11, 

COST. 12  COST. 13  COST. 14  COST. 16  COST. 16  COST. 17  COST. 18  COST. 19 
EXECIO  1  OISKW  COST  DATA  A  2  '(STRING1  COSTRED.l  C0STRED.2  C0STRED.3, 
C0STRED.4  C0STRE0.6  C0STRED.6  COSTRED . 7  C0STRED.8  C0STRED.9, 

COSTRED. 10  COSTRED.il  COSTRED. 12  COSTRED. 13  COSTRED. 14  COSTRED. 16, 
COSTRED. 16  COSTRED. 17  COSTRED. 18  COSTRED. 19 
/*  ASK  USER  IF  THEY  WOULD  LIKE  HARD  COPY  */ 

SAY  ‘WOULD  YOU  LIKE  A  PRINTEO  COPY  OF  THE  TABLES?  (YES  OR  NO)' 

PULL  ANSWER 

IF  ANSWER-YES  THEN  CALL  TABLEPUT  /*  IF  YES.  PRINT  TABLES  */ 

/•  IF  TABLE  FILES  WERE  PROOUCED.  ERASE  THEM  */ 

IF  PREDFLAG=1  THEN  ERASE  PREDTABLE  TABLE 
IF  WHENFLAG-1  THEN  ERASE  WHEN8UY  TABLE 
IF  C0STFLAG=1  THEN  ERASE  COSTAVOID  TABLE 
IF  L IFEFLAG=1  THEN  ERASE  LIFESAVE  TABLE 
IF  DIAGFLAG=1  THEN  ERASE  DIAGNOSE  TABLE 
IF  COSTCATF L AG- 1  THEN  ERASE  COSTCAT  TABLE 


/•  MENUli 

/*  SUBROUTINE  TO  DISPLAY  FIRST  MENU 

/* 


MENUl: 

/•  PUT  MENUl  IN  THE  QUEUE  */ 
QUEUE  CURSOR  UL  IC 


QUEUE  1  31  PH  '"***  COSTCASTER  ***"' 

QUEUE  3  10  PL  "'PLEASE  ENTER  THE  INPUTS  YOU  WANT  COSTCASTER  TO  USE  FOR'" 
QUEUE  4  10  PL  '"THIS  ANALYSIS  AND  PRESS  RETURN'" 

QUEUE  6  10  PL  '"WOULD  YOU  LIKE  COSTCASTER  TO  USE  THE  SAME  INPUTS"  ' 

QUEUE  7  10  PL  "  'AS  LAST  SESSION?  1 1 ' 

QUEUE  7  29  UH  "  "I  IOVERLAY(DATA.7.30, '  •)!!""  PL 

QUEUE  9  1  PL  "  'WHAT  TMS  WOULD  YOU  LIKE  TO  ANALYZE?  ‘ ' • 

QUEUE  9  39  UH  "  "  I IOVERLAY<DATA.9.40, '  '  ) I  I  "  " PL 

QUEUE  11  1  PL  '"WHAT  DISCOUNT  RATE  WOULD  YOU  LIKE  TO  USE?  "' 

QUEUE  11  44  UH  "  "  I IOVERLAY(OATA. 11 .45, '  '  )  I  I  "  "  PL 

QUEUE  11  47  PL  "  'X' ' ' 

QUEUE  13  1  PL  "'WHAT  IS  THE  ACQUISITION  COST  OF  THE  MOD/REPLACEMENT  TMS? 
QUEUE  13  59  UH  ""  I  IOVERLAY( DATA.  13.60,  '  ')  ""  PL 

QUEUE  13  68  PL  "  'DOLLARS"  ' 

QUEUE  14  1  PL  '"(IF  NOT  SPECIFIED,  UNIT  PRICE  OF  CURRENT  TMS  USED)"' 


QUEUE  7  29  UH 
QUEUE  9  1  PL 
QUEUE  9  39  UH 
QUEUE  11  1  PL 
QUEUE  11  44  UH 
QUEUE  11  47  PL 
QUEUE  13  1  PL 

QUEUE  13  59  UH 
QUEUE  13  68  PL 
QUEUE  14  1  PL 


QUEUE  16  1  PL  "  'WHAT  IS  THE  REMAINING  ECONOMIC  LIFE  OF  THE  CURRENT  TMS? 


QUEUE  16  69  UH 
QUEUE  16  63  PL 


'  ' I  I OVERLAYC DATA. 16.60, ' 
'  YEARS ' ' ' 


QUEUE  18  1  PL  "'WHAT  IS  THE  ECONOMIC  LIFE  OF  THE  MOD/REPLACEMENT  TMS?  " 

QUEUE  18  59  UH  "  "  I  I  OVERLAY (DATA. 18.60, '  *  )  I  I  "  "  PL 

QUEUE  18  63  PL  '  "YEARS'  '  ' 

QUEUE  20  1  PL  '"TYPE  OF  WEIGHTING  IN  THE  PREDICTION  SUBMODEL  ?'" 

QUEUE  20  59  UH  "  "  I  I  OVERLAY  (DATA.  20. 60.  *  ')""  PL 

QUEUE  21  10  PL  "  '(EQUAL  OR  LINEAR)"  ' 

QUEUE 

' DVHMEN  (STACK'  /*  DVHMEN  IS  A  UTILITY  TO  DISPLAY  FULLSCREEN  MENUS  •/ 

/*  READ  IN  ANY  USER  CHANGES  •/ 


'DVHMEN  (STACK'  /*  DVHMEN  IS  A  UTILITY  TO  DISPL. 
/*  READ  IN  ANY  USER  CHANGES 
PULL  ...  KEY 
DO  QUEUEDO 

PULL  .  K  L  HOLD 
DATA. K.L«STRIP( HOLD) 

END 

CALL  ERRORCHECK1  /*  CHECK  FOR  INVALID  INPUTS  V 
RETURN 
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. . . . . 

/*  MENU2«  */ 

/•  SUBROUTINE  TO  OISPLAY  SECOND  MENU  */ 

. 

MENU2 : 

/*  PUT  MENU2  IN  THE  QUEUE  */ 

QUEUE  CURSOR  UL  IC 


QUEUE  1  27  PH  ‘ '  ***  COSTCASTER  ***"  ' 

QUEUE  3  1  PL  '"PLEASE  INDICATE  BELOW  THOSE  COST  CATEGORIES  WHICH  YOU  WOULD 
LIKE  TO  USE  FOR'" 

QUEUE  4  1  PL  "  'THIS  ANALYSIS  BY  PUTTING  A  Y(YES)  OR  N(NO)  NEXT  TO  THE 
APPROPRIATE  CATEGORY ' ' ' 

QUEUE  6  1  PL  "'YOU  MAY  ALSO  INOICATE  THE  EXPECTED  COST  REDUCTION 
ASSOCIATED' ' ’ 

QUEUE  6  1  PL  "'  WITH  THE  MOO/REPLACEMENT  TMS"' 

QUEUE  9  1  PL  "'DO  YOU  WANT  TO  USE  THE  SAME  CATEGORIES  AS  LAST  SESSION?'" 
QUEUE  9  67  UH  ""  MOVERLAY! DATA. 9.68, '  ')""  PL 

QUEUE  11  6  PL  "'COST  CATEGORY  X  REDUCTION  COST  CATEGORY 

X  REDUCTION' ' ' 

QUEUE  13  1  PL  '"OPERATIONS  PERSONNEL'" 

QUEUE  13  24  UH  "  "  II OVERLAY< DATA.  13 . 25.  '  ')""  PL 
QUEUE  13  30  UH  "  " OVERLAY( DATA.  13.31 .  '  ')""  PL 

QUEUE  14  1  PL  "'BASE  MAINTENANCE  PERS. 

QUEUE  14  24  UH  ""II OVERLAY! DATA.  14.26,'  ')""  PL 
QUEUE  14  30  UH  "  "OVERLAY! DATA.  14.31 ,  '  ')""  PL 

QUEUE  16  1  PL  '"ADMINISTRATIVE  PERS. 

QUEUE  16  24  UH  "  "  I  I  OVERLAY!  DATA.  16.26, '  ')""  PL 
QUEUE  16  30  UH  "  "OVERLAY! DATA.  16.31 . 1  ')""  PL 

QUEUE  16  1  PL  '"SUPPLY  SUPPORT  PERS. 

QUEUE  16  24  UH  "  "  I  I  OVERLAY!  DATA.  16.26,  '  ')""  PL 
QUEUE  16  30  UH  "  "OVERLAY!  DATA.  16.31 ,  '  ')""  PL 

QUEUE  17  1  PL  "'FUEL 

QUEUE  17  24  UH  "  "  I  I  OVERLAY!  DATA.  17.26.  '  ')""  PL 
QUEUE  17  30  UH  "  " OVERLAY! DATA.  17.31,'  ')""  PL 

QUEUE  18  1  PL  "'MAINTENANCE  MATERIEL 
QUEUE  18  24  UH  "  "  I  I0VERLAY(DATA.18.26,  '  PL 

QUEUE  18  30  UH  ""  OVERLAY!  DATA.  18.31 , '  ')""  PL 

QUEUE  19  1  PL  "  'UTILITIES 

QUEUE  19  24  UH  "  "  I  I  OVERLAY! DATA. 19.26, '  •)•••'  PL 

QUEUE  19  30  UH  ""  OVERLAY!  DATA.  19 . 31 , '  ')""  PL 

QUEUE  20  1  PL  " 'DEPOT  MAINTENANCE 

QUEUE  20  24  UH  ""  I  IOVERLAY! DATA. 20.25, '  *  > ’  '  *  '  PL 

QUEUE  20  30  UH  "  "OVERLAY! DATA. 20. 31,'  ')""  PL 

QUEUE  21  1  PL  '"REPLACEMENT  INVESTMENT 

QUEUE  21  24  UH  "  "  I  I  OVERLAY! DATA. 21 .26,  ‘  *)""  PL 

QUEUE  21  30  UH  "  "OVERLAY!  DATA.  21 .31 , '  PL 

QUEUE  22  1  PL  "'BASE  OPERATING  SUPPORT 

QUEUE  22  24  UH  ""  I  (OVERLAY! DATA. 22.26, '  ')""  PL 

QUEUE  22  30  UH  "  "OVERLAY! DATA. 22. 31.'  ')""  PL 

QUEUE  13  40  PL  "'REAL  PROPERTY  MAINT. 

QUEUE  13  64  UH  - I , OVERLAY! OATA. 13 .66 , ’  ' >"  "  PL 

QUEUE  13  70  UH  - OVERLAY!  DATA.  13.71 ,  '  ')""  PL 

QUEUE  14  40  PL  '"BASE  CORMUNICATIONS 

QUEUE  14  64  UH  - I  I  OVERLAY!  OATA.  14.66,  '  ' )""  PL 

QUEUE  14  70  UH  - OVERLAY!  OATA.  14 .71 ,  ’  ')""  PL 
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I 


I 


I 


QUEUE 

16 

40 

P 

1 ' ’MEDICAL(HEALTH  CARE) 

1  1  1 

PL 

QUEUE 

16 

64 

Uh 

•  "  1 IOVERLAY( DATA. 16.66, ' 

1  J  1  l  1  l 

QUEUE 

16 

70 

UH 

' ' ' 'OVERLAY< DATA. 16.71,' 

i  J  1  1  i 

PL 

QUEUE 

16 

40 

PL 

1 1 'TOY 

l  1  1 

PL 

QUEUE 

16  64 

UH 

• ' 1 ' 1 !OVERLAY( DATA. 16.66, ' 

1  J  l  1  l  • 

QUEUE 

16 

70 

UH 

' ' ' ‘0VERLAY(DATA.16.71, ' 

l  J  I  1  1 

PL 

QUEUE 

17 

40 

PL 

• • ' PCS 

l  1  l 

PL 

QUEUE 

17 

64 

UH 

* '  "  1 lOVERLAYCDATA. 17.66. ' 

infill 

QUEUE 

17 

70 

UH 

'  ' ' ' OVERLAY( DATA .17.71,’ 

1  J  1  •  I 

PL 

QUEUE 

18 

40 

PL 

‘"GENERAL  DEPOT  SUPPORT 

i  l  1 

PL 

QUEUE 

18 

64 

UH 

"  "  1 IOV£RLAY(DATA. 18.66. * 

1  J  l  1  1  » 

QUEUE 

18 

70 

UH 

' ‘ 1 ' QVERLAY(DATA. 18.71,' 

1  ^  1  I  I 

PL 

QUEUE 

19 

40 

PL 

"'ENGINEERING  SUPPORT 

1  <  < 

PL 

QUEUE 

19 

64 

UH 

"  "  1 IOVERLAY(DATA. 19.66. * 

QUEUE 

19 

70 

UH 

' ' ' 'OVERLAY(OATA. 19.71, ' 

i  y  i  i  i 

'  PL 

QUEUE 

20 

40 

PL 

"'TRANS.  AND  PACKAGING 

i  i  i 

PL 

QUEUE 

20 

64 

UH 

"  "  1 1 OVERLAY( DATA .20.65, ‘ 

<  j  i  i  i  i 

QUEUE 

20 

70 

UH 

' ' ' ' OVERLAY(OATA.20 . 71 , ' 

♦  jiii 

'  PL 

QUEUE 

21 

40 

PL 

' ' 'ADVANCED  TRAINING 

i  i  i 

PL 

QUEUE 

21 

64 

UH 

"  "  1 1 OV£RLAY( DATA. 21 .66 , ’ 

i  j  i  i  i  • 

QUEUE 

QUEUE 

21 

70 

UH 

' ' ' ' 0VERLAY(DATA.21 .71 , ' 

'  >" ' 

PL 

/•  READ 

IN  ANY 

USER  CHANGES  */ 

•OVHMEN  (STACK' 

PULL  ...  KEY 
DO  QUEUED( ) 

PULL  .  K  L  HOLD 
DATA . K . L*STRIP( HOLD ) 

END 

CALL  ERR0RCHECK2  /*  CHECK  FOR  INVALID  INPUTS  V 
RETURN 


■ 
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/*  MENU3J 

/*  SUBROUTINE  TO  OISPLAY  THIRD  MENU 


MENU3  <• 

/*  PUT  MENU3  IN  THE  QUEUE 
QUEUE  CURSOR  UL  IC 
QUEUE  1  24  PH  1 '  *****  CO 
QUEUE  3  1  PL  "  'WHICH  OF 
SEE  ? 

QUEUE  6  2  PL  "  ' PF 1  -  DAT 


*****  COSTCASTER  *****"  1 

WHICH  OF  THE  FOLLOWING  COSTCASTER  OUTPUTS  WOULD  YOU  LIKE  TO 


PF  1  -  DATA  INPUT  TABLE"  ‘ 

PF2  -  DATA  INPUT  TABLE  LISTED  BY  COST  CATEGORY"1 

PF3  -  TABLE  OF  COST  PREDICTIONS  AND  ASSOCIATED  PREDICTION 

1 PF 4  -  TABLE  OF  PREDICTION  DIAGNOSTICS'" 

"PF6  -  COST  AVOIDANCE  TABLES'" 


QUEUE  7  2  PL  "  ' PF2  -  DATA  INPUT 
QUEUE  9  2  PL  "  'PF3  -  TABLE  OF  CO 
INTERVALS' ' ' 

QUEUE  11  2  PL  '  "PF4  -  TABLE  OF  P 
QUEUE  13  2  PL  ' ' ' PF6  -  COST  AVOI 
QUEUE  16  2  PL  '  "PF6  -  WHENBUY  TA 

QUEUE  17  2  PL  ' ' ' PF7  -  MAINTENANC 

QUEUE  19  2  PL  "  'PF8  -  SAVINGS  TA 

QUEUE  21  2  PL  "  ' PF9  -  EXIT 

QUEUE 

' DVHMEN  (STACK' 

PULL  ...  KEY 

/*  DO  WHAT  THE  USER  ASKED  */ 

IF  KEY-PF10  THEN  DO 

QUEUE  '.ALARM' 

QUEUE  24  12  PH  '  "***PF1 
CURSOR  ■  1  1  1  ' 

SIGNAL  MENU3 
END 

IF  KEY=PF09  THEN  SIGNAL  RESTART 

IF  KEY-PF01  THEN  DO 

QUEUE  '.ALARM' 

QUEUE  24  12  PH  '  "•••OPT 
CURSOR  ='56' 

SIGNAL  MENU3 
END 

IF  KEY-PF02  THEN  SIGNAL  COSTCAT 

IF  KEY-PF12  THEN  DO 

QUEUE  ' .ALARM' 

QUEUE  24  12  PH  '  "•••PF 
CURSOR  *’11' 

SIGNAL  MENU3 

END 

IF  KEY-PF07  THEN  DO 

QUEUE  '.ALARM' 

QUEUE  24  12  PH  '  "•••OPT 
CURSOR  *  '17  2  ' 

SIGNAL  MENU3 
ENO 

CALL  REG 
REGFLAG=1 

IF  KEY*PF03  THEN  SIGNAL  PREOTABLE 
IF  KEY*PF04  THEN  SIGNAL  DIAGNOSE 
IF  KEY-PF05  THEN  SIGNAL  COSTAVOID 
IF  KEY*PF06  THEN  SIGNAL  WHENBUY 
IF  KEY-PF08  THEN  SIGNAL  LIFESAVE 
RETURN 


WHENBUY  TABLES'" 
MAINTENANCE  TABLES'" 
SAVINGS  TABLE' ' ' 

EXIT 


•**PF 10  NOT  DEFINED 


OPTION  NOT  IMPLEMENTED* 


'•••PF  KEY  NOT  DEFINED*** 


OPTION  NOT  IMPLEMENTED* 
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/.............MM... . . . . 

/*  0LD1  •*  */ 

/•  SUBROUTINE  TO  READ  IN  LAST  SESSIONS  DATA  AND  REDISPLAY  MENU1  */ 
/»  V 

. . . . . 

0LD1: 

EXECIO  1  DISKR  COST  DATA  A  1 


PULL  DATA. 9. 40  DATA. 11. 45  DATA. 13.60  DATA. 16.60  DATA. 18.60  OATA.20.60  . 
IF  DATA. 13.60  »  -99  THEN  DATA. 13.60  •  ? 

CURSOR  -  ‘7  29' ;CALL  MENU1 
RETURN 


/*  0LD2:  */ 

/*  SUBROUTINE  TO  READ  IN  LAST  SESSIONS  DATA  AND  REDISPLAY  MENU2  V 
/*  V 

. . . . . . . 

0LD2 : 

EXECIO  2  DISKR  COST  DATA  A  1 


PULL  DATA. 9. 40  DATA. 11. 46  DATA. 13.60  DATA. 16.60  DATA. 18.60  DATA. 20. 60, 
DATA. 13.25  DATA. 14.26  DATA. 16.26  DATA. 16.26, 

DATA. 17.25  DATA. 18.26  DATA. 19.25  DATA. 20. 25. 

DATA. 21. 25  DATA. 22. 25  DATA. 13.66  DATA. 14.66, 

DATA. 16.65  DATA. 16.65  DATA. 17.65  DATA. 18.65. 

DATA. 19.65  DATA. 20. 65  DATA. 21. 65 
PULL  DATA. 13.31  DATA. 14.31  DATA. 16. 31, 

DATA. 16.31  DATA. 17.31  DATA. 18.31  DATA. 19.31  DATA. 20. 31  DATA. 21. 31. 
DATA. 22. 31  DATA. 13.71  DATA. 14.71  DATA. 16.71  DATA. 16.71  DATA. 17. 71, 
DATA. 18.71  DATA. 19.71  DATA. 20. 71  DATA. 21. 71 
/*  CONVERT  COST  CATEGORY  INDICATORS  BACK  TO  Y  OR  N  V 

DO  I«  13  TO  22 

IF  DATA. 1.26  =  1  THEN  DATA.I.26«Y 
ELSE  DATA. I. 26  =  N 
IF  DATA. I. 66  =  1  THEN  DATA. I. 66  ■  Y 
ELSE  DATA. I. 66  =  N 
END 

CURSOR  »  '9  67'; CALL  MENU2 
RETURN 
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. . . . 

/*  ERR0RCHECK1:  SUBROUTINE  TO  CHECK  FOR  INPUT  ERRORS  ON  MENU1  */ 
. . . . * . . . ***** . . . . 


ERRORCHECK1 : 

USE1=OATA.7.30 
TMS=DATA.9.40 
DISCRATE=QATA. 11.45 
ACQCOST* DATA. 13.60 
OLDLIFE-DATA. 16.60 
NEWLIFE*DATA. 18.60 
WE  I GHT=DATA .20.60 
IF  USE  1  *  YES  4  USE1  «NO 

THEN  DO 

QUEUE  '.ALARM' 

QUEUE  2  12  PH  "  1  ‘‘‘RESPONSE  MUST  BE  YES  OR  NO*"*"' 

CURSOR  =  '  7  29' 

SIGNAL  MENU1 
END 

IF  DISCRATE  <  1 
THEN  DO 

QUEUE  ’.ALARM' 

QUEUE  2  12  PH  "  ‘  ‘“DISCOUNT  RATE  MUST  BE  BETWEEN  1  AND  100“*"  * 
CURSOR  =  '  11  44' 

SIGNAL  MENU1 
END 

IF  ACQCOST  <  0  4  ACQCOST  *  ? 

THEN  DO 
QUEUE  '.ALARM' 

QUEUE  2  12  PH  '"“‘INVALID  ACQUISITION  COST  “*'" 

CURSOR  =  '  13  69' 

SIGNAL  MENU1 
END 

IF  OLDLIFE  <  0  I  OLDLIFE  >16 
THEN  DO 
QUEUE  '.ALARM' 

QUEUE  2  12  PH  ""“ECONOMIC  LIFE  MUST  BE  BETWEEN  0  AND  16“*"  ' 
CURSOR  =  1  16  69' 

SIGNAL  MENU1 
END 

IF  NEWLIFE  <  0  I  NEWLIFE  >16 
THEN  DO 
QUEUE  ' .ALARM' 

QUEUE  2  12  PH  "  "“ECONOMIC  LIFE  MUST  BE  BETWEEN  0  AND  16***"' 
CURSOR  *  ’  18  69' 

SIGNAL  MENU1 
END 

IF  NEWLIFE  <  OLDLIFE 
THEN  DO 
QUEUE  ' .ALARM' 

QUEUE  2  1  PH  ■  '"“ECONOMIC  LIFE  OF  NEW  TMS  MUST  BE  GREATER  THAN 
ECONOMIC  LIFE  OF  OLD  TMS*“‘" 

CURSOR  *  '  18  69' 

SIGNAL  MENU1 
ENO 


IF  DATA. 20. 60  ■‘EQUAL ’4  DATA. 20. 60  -’LINEAR' 

THEN  DO 

QUEUE  ’.ALARM’ 

QUEUE  2  12  PH  ••‘INCORRECT  RESPONSE***’" 
CURSOR  ■  '20  72' 

SIGNAL  MENU1 
END 

RETURN 


. . . . . * . ******* . . •****/ 

/*  ERR0RCHECK2:  SUBROUTINE  TO  CHECK  FOR  INPUT  ERRORS  ON  MENU2  */ 
/*  *t 

. . . . . . 

ERR0RCHECK2 • 

/*  CONVERT  COST  CATEGORY  INDICATORS  BACK  TO  V  OR  N  */ 


DO  1=  13  TO  22 

IF  OATA .1.25  =  1  THEN  DATA.I.25-Y 
IF  OATA. I. 25  =  0  THEN  DATA. I .26- ’N' 

IF  DATA. 1.65  =  1  THEN  DATA. 1.65  -  Y 
IF  DATA.  1. 65  =  0  THEN  DATA.  1. 66  -  ‘N’ 

END 

USE2-DATA.9.58 

IF  DATA. 9. 58  =  YES  &  DATA. 9. 68  -NO 

THEN  DO 

QUEUE  ’.ALARM’ 

QUEUE  8  20  PH  '  "  “'RESPONSE  MUST  BE  YES  OR  NO***"  ’ 

CURSOR  =  ’  9  67’ 

SIGNAL  MENU2 
END 

DO  I  =  13  TO  22 

IF  DATA. I. 26  -Y  &  DATA. I. 26  - ’ N’ 

THEN  DO 

CURSOR  =  I  24 
QUEUE  '.ALARM' 

QUEUE  8  20  PH  '  "•••ONLY  Y  OR  N  ARE  VALID  RESPONSES***"' 
SIGNAL  MENU2 
END 

IF  DATA. 1. 65  -  Y  &  DATA. 1. 65  =>'N' 

THEN  DO 
CURSOR  =  I  64 
QUEUE  '.ALARM' 

QUEUE  8  20  PH  "  ‘•••ONLY  Y  OR  N  ARE  VALID  RESPONSES*** ' ' ' 
SIGNAL  MENU2 
ENO 
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IF  ABSCDATA. I .31 )  <  1  &  DATA. I. 31  •  0 
THEN  DO 
CURSOR  -  I  30 
QUEUE  '.ALARM' 

QUEUE  7  20  PH  '"****  REDUCTION  MUST  BE  AN  INTEGER 
SIGNAL  MENU2 
END 

IF  ABS(DATA. 1.71)  <  1  A  DATA. I. 71  »  0 

THEN  DO 
CURSOR  -  I  70 
QUEUE  '.ALARM' 

QUEUE  7  20  PH  •"*•*%  REDUCTION  MUST  BE  AN  INTEGER 
SIGNAL  MENU2 
END 
END 

/•  SET  COST  INDICATORS  TO  ZERO  OR  ONE 
DO  I*  13  TO  22 
J= 1-12 
K=I-2 

IF  DATA. 1.25  =  Y  THEN  COST.J-1 
ELSE  COST. J  =  0 

IF  DATA. I. 65  =  Y  THEN  COST.K  -  1 
ELSE  COST.K  *  0 
COSTRED.J  -  DATA. I. 31 
COSTRED.K  -  DATA. I. 71 
END 

RETURN 


. . . . . . 

/*  COSTREAD  SUBROUTINE.’  READ  THE  COST  DATA  FILE  V 

. . ***** . . . 


COSTREADs 
TRACE  OFF 

J  «=  BiLINENUM  «  BiFOUND  -  0 
DO  WHILE  FOUND  -  0 
LINENUM=LINENUM+1 

EXECIO  1  DISKR  CCINPUT  XEDIT  A  LINENUM 
/*  IF  EOF  AND  TMS  NOT  FOUND,  GIVE  MESSAGE*/ 

IF  RCa2  THEN  DO 
QUEUE  '.ALARM' 

QUEUE  2  12  PH  "'***TMS  IS  NOT  CURRENTLY  IN  THE  DATA  BASE***'" 
CURSOR3  '  9  39  ' 

SIGNAL  MENU1 
END 

PULL  FTMS  . 

IF  FTMS  =  TMS  THEN  NOP  /*  IF  TMS  NOT  A  MATCH.  KEEP  LOOKING  V 
ELSE  DO  1  /*  IF  TMS  A  MATCH .READ  THE  VARIABLES*/ 

T  =  TMS 
J  =  1 
FOUND  3  1 

EXECIO  1  DISKR  CCINPUT  XEDIT  A  LINENUM 

PULL  FTMS  SRO.J  NOMEN. J  NSN.J  AVG.J  YEAR . J , 

PRICE. J  COST. 1 . J  COST. 2. J  COST. 3. J. 

COST. 4. J  COST. 5. J  COST. 6. J  COST. 7. J, 

COST. 8. J  COST. 9. J  COST. 10. J  COST. 11. J. 

COST. 12. J  COST. 13. J  COST. 14. J  COST. IB. J. 

COST. 16. J  COST. 17. J  COST. 18. J  COST. 19. J 
DO  WHILE  F TMS = TMS 
T  =  TMS 
J  =  J+l 

EXECIO  1  DISKR  CCINPUT  XEDIT  A 

PULL  FTMS  SRD.J  NOMEN. 0  NSN.J  AVG.J  YEAR. J, 

PRICE. J  COST. 1 . J  COST. 2. J  COST. 3. J. 

COST. 4. J  COST.B.J  COST. 6. J  COST. 7. J. 

COST. 8. J  COST. 9. J  COST. 10. J  COST. 11. J. 

COST. 12. J  COST. 13. J  COST. 14. J  COST. 16. J. 

COST. 16. J  COST. 17. J  COST. 18. J  COST. 19. J 
END 
END 
END 
NaJ-l 

IF  ACQCOST— 99  THEN  ACQCOSTaPRICE .N  /‘SET  ACQCOST=LASTBUY  PRICE  */ 
RETURN 
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/.........-............................I 

/*  TOTCOST:  SUBROUTINE  TO  CALCULATE  THE  SUM  OF  THE  COSTS  FOR  •/ 

/•  THE  USER  SPECIFIED  CATEGORIES  •/ 

TOTCOST: 

DO  I  •  1  TO  N 


TCOST.I  ■  COST. 1. I ‘COST. 1  ♦  COST . 2 . I 'COST . 2  ♦  C0ST.3.I-C0ST.3, 

♦  COST .4. I 'COST. 4  ♦  COST. 6. I-C0ST.6  ♦  C0ST.6.I-C0ST.6, 

♦  COST. 7. I “COST. 7  +  COST. 8. I ‘COST. 8  ♦  COST. 9. I*C0ST.9, 

♦  COST. 10. I ‘COST. 10*  COST .11. I -COST .11+  COST. 12. I*COST. 12, 

♦  COST. 13. I “COST. 13+  COST. 14. I 'COST. 14+  C0ST.16.I*C0ST.16, 

+  COST. 16.1-COST. 16+  COST. 17. I-COST. 17+  COST. 18. I'COST. 18, 

+  COST. 19. 1-COST. 19 

IF  TCOST.I  «  0  THEN  TCOST.I  -  .1  /•  IF  A  COST  IS  ZERO, SET  IS  TO  .1 
DOLLARS  •/ 

LTCOST.I  *  LOG( TCOST.I) 

END 

RETURN 


. . ******** . . . 

/•  REGi  A  SUBROUTINE  TO  DO  LOG-LOG  REGRESSION  */ 

. . . 

REG: 

CALL  COSTREAD 
CALL  TOTCOST 


XSUM*0 ; YSUM=0 ; XYSUM=0 i XXSUM=0 ; YYSUM*0  s  DENOM=0 ; 

IF  DATAPOINT  <  N  THEN  INDEX  =  DATAPOINT  /-DATAPOINT  COMES  FROM  DIAGNOSE*/ 
ELSE  INDEX  =  N 
DO  1-1  TO  INDEX 

IF  WEIGHT  =' LINEAR'  THEN  WT  ■  I 
ELSE  WT  =  1 
OENOM  *  DENOM  +  WT 
XSUM  -  XSUM  +  WT-INTLOG(I) 

YSUM  -  YSUM  +  WT-LTCOST.I 
END 

YBAR  -  YSUM/DENOM 
XBAR  -  XSUM /DENOM 
DO  1*1  TO  INDEX 
ILOG=INTLOG( I ) 

IF  WEIGHT  *  ’LINEAR'  THEN  WT  -  I 
ELSE  WT  =  1 

XXSUM  *XXSUM+WT*(ILOG-XBAR)**2 

XYSUM  «XYSUM  +  WT*( ILOG-XBAR)*<LTCOST. I-YBAR) 

YYSUM  -YYSUM  +WT*(LTCOST. I-YBAR>-*2 
END 

B1  «(XYSUM)/( XXSUM) 

B0  »  YBAR-B1-XBAR 

MSE  YYSUM-XYSUM-2/XXSUM>/(  INDEX-2 ) 

TRACE  OFF 
TRACE  OFF 
RETURN 


/•  TEST  EXP:  THIS  SUBROUTINE  TAKES  E  AND  RAISES  IT  TO  THE  POWER  X  ", 
. . . . . . . 


EXP : 

ARG  X 

X  *  STRIP(X) 

FLAG  -  0 
IF  X  <  0  THEN  DO 
X  -  ABS(X) 

FLAG  -  1 
END 

EE-  1 ; FACT- I; TEMP =1 
DO  22  -  1  TO  100 
TEMP-TEMP*( X/ZZ) 

EE  =  EE+TEMP 

IF  ABS(TEMP)  <  0.000000001  THEN  DO 
IF  FLAG  -  1  THEN  RETURN  1/EE 
ELSE  RETURN  EE 
END 
END 

IF  FLAG  -  1  THEN  RETURN  1/EE 
ELSE  RETURN  EE 


»*/ 

*/ 

•V 


/*  TEST  LOG:  THIS  SUBROUTINE  CALCULATES  THE  NATURAL  LOG  OF  X 

LOG: 

ARG  W 
WW-0 

W  -  STRIP(W) 

IF  W  -  0  THEN  RETURN  -230 
CHECK*0 

IF  W  <  1  THEN  DO  WHILE  CHECK  <  1 
CHECK*  W*10**(WW+1> 

WW-WW+1 

E*-WW 

END 

ELSE  E  -  LENGTH( TRUNC( W  > )-l 
M*W/(  10**E ) 

LN  -  0;MANT  »  0 

DO  ZZ  -  1  TO  100  BY  2 

SHEMP  *  2*(  1/ZZ>*( (M-l  )/(M'*,l  ))**ZZ 
MANT-MANT+SHEMP 
IF  SHEMP  <  0.000000001  THEN  DO 
LN  *  MANTt-E* 2. 3026861 
RETURN  LN 
END 
END 

LN  *  MANT+E *2. 3026861 
RETURN  LN 
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/•' 

ft*** 

/* 

FSTAT i 

:  THIS  SUBROUTINE 

GIVES 

THE 

96TH  PERCENTILE  OF  THE  F 

V 

/• 

/*i 

DISTRIBUTION  FOR 

THE  ! 

SPECIFIED  DEGREES  OF  FREEDOM 

*/ 

FSTAT: 

ARG  DF 

IF 

DF-1 

THEN  RETURN 

161.4 

;  IF  DF-2 

THEN  RETURN 

18.61 

IF 

DF®3 

THEN  RETURN 

10. 13;  IF 

DF-4 

THEN  RETURN 

7.71 

IF 

DF-5 

THEN  RETURN 

6.61 

S  IF 

DF*6 

THEN  RETURN 

6.99 

IF 

DF-7 

THEN  RETURN 

6.69 

;IF 

DF-8 

THEN  RETURN 

6.32 

IF 

DF-9 

THEN  RETURN 

6.12 

j  IF 

DF-10 

THEN  RETURN 

4.96 

IF 

DF*  11 

THEN  RETURN 

4.84 

;  IF 

DF-  12 

THEN  RETURN 

4.76 

IF 

DF-  13 

THEN  RETURN 

4.67 

?  IF 

DF*  14 

THEN  RETURN 

4.60 

IF 

DF*  16 

THEN  RETURN 

4.64 

;  IF 

DF-  16 

THEN  RETURN 

4.49 

IF 

DF*  17 

THEN  RETURN 

4.46 

;  IF 

DF*  18 

THEN  RETURN 

4.41 

IF 

DF*  19 

THEN  RETURN 

4.48 

;  IF 

DF*  20 

THEN  RETURN 

4.36 

IF 

DF=  21 

THEN  RETURN 

4.32 

;  IF 

DF-  22 

THEN  RETURN 

4.30 

IF 

DF*  23 

THEN  RETURN 

4.28 

;  IF 

DF-  24 

THEN  RETURN 

4.26 

IF 

DF*  26 

THEN  RETURN 

4.24 

;  IF 

DF*  26 

THEN  RETURN 

4.23 

IF 

DF*  27 

THEN  RETURN 

4.21 

sIF 

DF-  28 

THEN  RETURN 

4.20 

IF 

DF*  29 

THEN  RETURN 

4.18 

;  IF 

DF-  30 

THEN  RETURN 

4.17 

IF 

DF  >  30 

THEN  RETURN 

4.17 

/*' 

/* 

PVOSi 

SUBROUTINE  TO  CALCULATE 

THE 

PRESENT  VALUE  OF  O&S  COSTS 

•/ 

/* 

/•* 

OF  THE  CURRENT  TMS 

OVER 

ITS 

r  *  *  *  t 

REMAINING 

ECONOMIC  LIFE 

*/ 

PVOS: 

TOTAL OS-0 

DO  K  =  START  TO  STOP 

PREDC=  EXP(B0+B1*INTLOG(K+N) ) 

IF  PREDC<  1  THEN  PREDC*  0 

TOTALOS  «  TOTALOS  ♦( < 1+OISCRATE/100)**-K)*PREDC 
END 
RETURN 
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K  . . . . . . - 

■  /*  PREDTABL J  SUBROUTINE  TO  DISPLAY  PRED.  OAS  COST  AND  PRED.  INTERVALS*/  I 

/*  FOR  THE  CURRENT  TMS  OVER  ITS  REMAINING  ECONOMIC  LIFE  */  i 

. . . * . . . . . ......./  j 

PREOTABLE:  < 

IF  PREDFLAG-1  THEN  SIGNAL  PREDTABLEBEGIN  < 

PREDFLAG-1 

EXECIO  1  DISKW  PREOTABL  TABLE  A  1  *< STRING'  '-LABI  ' 

*  EXECIO  1  DISKW  PREOTABLE  TABLE  A  2  '(STRING'  IB"". 

CENTER( 'PREDICTIONS  FOR  THE'  TMS  NOMEN. N. 64)"  " 

EXECIO  1  DISKW  PREOTABLE  TABLE  A  3  '(STRING*  2  6"".  ' 

CENTERCTHE  PREDICTED  COST  FOR  YEAR  T  - ‘TRUNC(EXP(B0)+.6> ' *T**( ’TRUNC(B1 ,4)' ) 

(FY82  DOLLARS)' .64)"  " 

EXECIO  1  DISKW  PREOTABL  TABLE  A  4  '(STRING'  36''  1 

EXECIO  1  DISKW  PREOTABLE  TABLE  A  6  '(STRING'  4  6"".  j 

CENTER( 'FY' ,6)  CENTER( 'T' .6)  CENTER( 'COST' .9)  CENTER( 'FORECAST' . 13),  I 

CENTER( '96X  PREDICTION  INTERVAL' .26)"  "  J 

EXECIO  1  DISKW  PREDTABLE  TABLE  A  6  '(STRING'  6  6"", 

CENTER(  '  — '  ,6)  CENTER( '-' ,6)  CENTER(  ‘ - *.9)  CENTER( ' - ',13),  < 

CENTERC - *.26)""  i 

LINEa7iPLACE=6 

I  DO  I  =  1  TO  N  I 

EXECIO  1  DISKW  PREDTABLE  TABLE  A  LINE  ‘(STRING'  PLACE  6  ( 

CENTER( YEAR. 1.6)  CENTER(I,6)  CENTER(TRUNC(TCOST. I+.6),9),  J 

CENTER( '*' .13)  CENTER( '*' .26)"  "  1 

LINE=LINE+1 ;PLACE=PLAC£+1  ■ 

END  ; 

DF  =  N-2 

ICURRF=FSTAT(DF)  ] 

YR  *  YEAR . N  ♦  1  1 

DO  I  =  N+l  TO  OLDLIFE  +  N 
ILOG=INTLOG( I ) 

PMEAN  =  B0  ♦  Bl*ILOG 
PMULT1=  CURRF*MSE 

PMULT2=(  1/WT)>(  l/DENOM)-K(  IL0G-XBAR)**2)/XXSUM 

«  PMULT  =  EXP( 0 . 6*L0G( PMULT1 *PMULT2 ) )  I 

"  LB  =  EXP( PMEAN-PMULT )  1 

UB  =  EXP( PMEAN+PMULT ) 

IF  PLACE =  23  THEN  DO 

EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE  '(STRING'  23  1  PH  '  " 

PRESS  PF 12  TO  SEE  A  LIST  OF  OPTIONS.  "' 

EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+1  '(STRING'  24  1  PH  '  " 

PRESS  PF 1  TO  SEE  NEXT  SCREEN, PF2  TO  EXIT.  '"  I 

‘  EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+2*  (STRING'  ' -LAB2  '  I 

EXECIO  1  OISKW  PREDTABLE  TABLE  A  LINE+3  '(STRING*  2  6 

CENTERCTHE  PREDICTED  COST  FOR  YEAR  T  *  'TRUNC(EXP(B0)«-.6) '  *T**(  'TRUNC(B1 ,4) '  ) 

(FY82  DOLLARS)' .64)"  ' ' 

EXECIO  1  OISKW  PREOTABLE  TABLE  A  LINE+4  '(STRING'  4  6 

CENTER( 'FY' .6)  CENTER( ' T' .6  )  CENTER( 'COST' .9)  CENTER( 'FORECAST' . 13), 

CENTER( '95*  PREDICTION  INTERVAL' ,26)"  "  j 

EXECIO  1  OISKW  PREDTABLE  TABLE  A  LINE+6  '(STRING'  6  6"". 

CENTER(  '  — '  ,6)  CENTER(  '-'  .6)  CENTER(  ' - '  ,9)  CENTER( ' - '  ,13), 

CENTERC - - - . *,26)"" 
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PLACE-6 

LINE-LINE+6 

PREDTABLEFLAG-1 

END 

EXECIO  1  DISKW  PREDTABLE  TABLE  A  LINE  •(STRING*  PLACE  6 

CENTER( YR,6)  CENTER(I,6)  CENTRE( ' * ' ,9), 

CENTER( TRUNC( EXP( PMEAN  >♦ . 6 ) , 13 ) , 

CENTER( 1 ( ' TRUNC( LB+ . 6 ) ' . 'TRUNC(UB+.6> 1 ) 1 ,26) ' 1 ' 1 
YR  «  YR  +  1 

LINE-LINE+1 sPLACE-PLACE+1 
END 

START-1 {STOP-OLDLIFE 
CALL  PVOS 

EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE  '(STRING1  PLACE  6  . 

EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+1  '(STRING1  PLACE+l  6 
‘BASED  ON  USER  INPUTS, BERP- 1  TRUNC((ACQCOST/(TOTALOS*.6>)*.006.2>  1,1 ' 

IF  PREDTABLEFLAG-1  THEN  DO 

EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+2  '(STRING1  24  1  PH  1,1 
PRESS  PF1  TO  SEE  PREVIOUS  SCREEN. PF2  TO  EXIT.  111 
END 

ELSE  EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+2  '(STRING1  24  7  PH, 

'"PRESS  PF12  FOR  A  LIST  OF  OPTIONS, PF2  TO  EXIT.  1,1 
START- IsSTOP-OLDLIFE 
CALL  PVOS 

IF  WEIGHT-1 LI NEAR'  THEN  EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+1  '(STRING' 
PLACE +1  6  "  "  , 

'BASED  ON  USER  INPUTS, BERP- '  TRUNC( (ACQCOST/( TOTAL 0S+.6) >+.006,2), 

•LINEAR  WEIGHTS  ARE  USED. . 

IF  WEIGHT- 'EQUAL'  THEN  EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE+1  '(STRING1 
PLACE+1  6  "", 

'BASED  ON  USER  INPUTS. BERP- 1  TRUNC( (ACQCOST/TOTALOSH. 006.2). 

'EQUAL  WEIGHTS  ARE  USED. . 

PREDTABLEBEGIN: 

' DVHMEN  PREDTABLE  TABLE  A  -LABI' 

PULL  ...  KEY 
CALL  FUNCTION 
IF  PREDTABLEFLAG-1  THEN  DO 
'DVHMEN  PREDTABLE  TABLE  A  -LAB2 ' 

PULL  ...  KEY 

IF  KEY  -  PF01  THEN  SIGNAL  PREDTABLEBEGIN 
ELSE  CALL  FUNCTION 
TRACE  OFF 
END 

RETURN 


/*  WHERE t  SUBROUTINE  TO  CALCULATE  THE  EXPECTED  REDUCTION  •/ 

/•  IN  O&S  COSTS  */ 


WHERE: 

SUMCOST 3  0 
DO  I  -  1  TO  19 
SUM. I  -  0 
DO  J*  1  TO  N 
IF  COST. I  -  1  THEN  DO 
IF  WEIGHT  LINEAR*  THEN  WT  -J/N 
ELSE  WT  =  1 

SUM. I  -  WT*COST . I . J+SUM . I 
END 
END 

SUMCOST=SUMCOST+SUM. I 
END 

NUMER-  0 
DO  I  =1  TO  19 

NUMER  -NUMER  +  SUM. I*(COSTRED. 1/100) 
ENO 

WHERE  -NUMER/SUMCOST 
RETURN 


. . * . ******** . . . . * . . . . 

/*  WHENBUY:  SUBROUTINE  TO  PRODUCE  THE  WHENBUY  TABLE  */ 

. . . . . 

WHENBUY: 

IF  WHENFLAG-1  THEN  SIGNAL  WHENBUYBEGIN 
WHENFLAG*! 


EXECIO  1  DISKW  WHENBUY  TABLE  A  1  '(STRING1  '-LABI' 

EXECIO  1  DISKW  WHENBUY  TABLE  A  2  '(STRING*  I  1 

CENTER( 'EXPECTED  SAVINGS  IF  REPLACEMENT  IS  MADE  N  YEARS  FROM 
PRESENT'  .66)"  " 

EXECIO  1  DISKW  WHENBUY  TABLE  A  3  '(STRING'  2  1 

CENTER! TMS  NOMEN. N. 60)  "" 

EXECIO  1  DISKW  WHENBUY  TABLE  A  4  ’(STRING'  3  1  . 

EXECIO  1  OISKW  WHENBUY  TABLE  A  6  '(STRING'  4  1 

CENTER( 'NUMBER  OF  YEARS  (N)  TO  REPLACEMENT' ,40) 

CENTER( 'SAVINGS' .20)  "" 

LINE*6;PLACE*6 
CALL  WHERE 
WFLAG  “  0 

DO  I  -  0  TO  OLOLIFE-1 
START  *  1+1 
STOP  «  OLDLIFE 
LINE-LINE*! 


PLACE-PLACE* 1 
CALL  PVOS 

SAV1 -WHERE  *TOTALOS-ACQCOST*( 1 +D I SCRATE / 100 ) *  *- 1 

SAV2- ((1*01 SCRATE / 1 00 ) *  * -OLOL I F E ) ‘ACQCOST* ( ( NE WL I F E-OL DL I FE* I ) /NEWL I FE ) 

SAVING=SAV1*SAV2 

IF  PLACE-  23  THEN  DO 

EXECIO  1  DISKW  PREDTABL  TABLE  A  LINE  ‘(STRING'  23  1  PH  1  " 

PRESS  PF12  TO  SEE  A  LIST  OF  OPTIONS.  1  " 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE*1  ‘(STRING'  24  1  PH  "  ' 

PRESS  PF1  TO  SEE  NEXT  SCREEN. PF2  TO  EXIT.  '  " 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+2  '(STRING*  '-LAB2  ' 

PLACE- 1 
LINE-LINE+3 
WFLAG-1 
END 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE  '(STRING'  PLACE  1"“, 

CENTER(  1,40)  CENTER( F0RM4TC SAVING, 8,0), 20) 

END 

PLACE-PLACE+1 

IF  PLACE*7>22  &  WFLAG  -  1  THEN  DO 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+1  '(STRING'  24  7  PH, 

'"PRESS  PF1  TO  SEE  PREVIOUS  SCREEN, PF12  FOR  OTHER  OPTIONS  . 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+2  '(STRING*  '-LAB2  * 

PLACE-3 
LINE-LlNt+2 
WFLAG  -  1 
END 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+1  ‘(STRING*  PLACE  1  . 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+2  '(STRING*  PLACE+1  1  . 

"'  NOTE:  SAVINGS  ARE  PER  UNIT  OVER  REMAINING  ECONOMIC  *  *  * 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+3  '(STRING*  PLACE+2  1  '*", 

'  LIFE  OF  CURRENT  TMS  COLDLIFE’  YEARS) . 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+4  '(STRING*  PLACE+3  1  "**, 

'ECONOMIC  LIFE  OF  CURRENT  TMS  «'  OLDLIFE  '"* 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+5  '(STRING'  PLACE+4  1  **'*, 

'ECONOMIC  LIFE  OF  REPLACEMENT  TMS  -  '  NEWLIFE  *  *  *  * 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+6  '(STRING'  PLACE+6  1  *"*, 

'PERCENTAGE  REDUCTION  IN  04S  COSTS  -  ' 

TRUNC( WHERE *100+ .6*S I GN( WHERE ) ) ' X . 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+7  ’(STRING*  PLACE+6  1  *"*, 

'DISCOUNT  RATE  ='  DISCRATE'X . 

EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+8  '(STRING'  PLACE+7  1  **", 
'ACQUISITION  COST  -'  ACOCOST  "" 

IF  WFLAG-  1  THEN  EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+9  '(STRING'  24  1  PH, 

"PRESS  PF1  TO  SEE  PREVIOUS  SCREEN, PF12  FOR  OTHER  OPTIONS  .  *" 
ELSE  EXECIO  1  DISKW  WHENBUY  TABLE  A  LINE+9  '(STRING'  24  1  PH  ’  " 

PRESS  PF2  TO  EXIT.PF12  FOR  OTHER  OPTIONS  .  '*' 

WHENBUYBEGIN: 

'OVHMEN  WHENBUY  TABLE  A  -LABI' 

PULL  ...  KEY 

IF  KEY  »  PF02  THEN  RETURN 

CALL  FUNCTION 

IF  WFLAG-1  THEN  DO 

'OVHMEN  WHENBUY  TABLE  A  -LAB2 ' 

PULL  ...  KEY 

IF  KEY  •  PF01  THEN  SIGNAL  WHENBUYBEGIN 
END 

CALL  FUNCTION 
RETURN 
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/*  COSTAVOID!  SUBROUTINE  TO  PRODUCE  THE  COST  AVOID  TABLES  V 


COSTAVOID: 

IF  COSTFLAG-1  THEN  SIGNAL  COSTAVOIDBEGIN 
COSTFLAG-1 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  1  ‘(STRING1  '-LABI' 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  2  '(STRING'  1  1 

CENTER( 'EXPECTED  COST  AVOIDANCE  AFTER  N  YEARS', 60)"" 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  3  '(STRING1  2  1 
CENTERCFOR  THE'  TMS  NOMEN. N, 60) "  " 

EXECIO  1  OISKW  COSTAVOID  TABLE  A  4  '(STRING'  3  1 

CENTER( ‘DISCOUNT  RATE- 'DISCRATE'X'  'ACQUISITION  COST-* 'ACQCOST,60>"  " 
EXECIO  1  DISKW  COSTAVOID  TABLE  A  6  '(STRING1  41'  ' 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  6  '(STRING'  6  6 

CENTER( ‘YEARS  AFTER  PURCHASE ' , 20 )  CENTER( ' PERCENT  REDUCTION  IN  SUPPORT 
COSTS'  .40)"  '  ' 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  7  '(STRING'  6  6 

RIGHTC  ' , 19)  RIGHT( ' 10* ' ,8)  RIGHT( '30* ' .8)  RIGHT( '60%' . 8) 

RIGHT( '70%' .8), 

RIGHT(  '90X\ 8)"  '  ' 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  8  ‘(STRING'  7  6 

RIGHTC  ' ,  19)  RIGHTC  —  ',8)  RIGHTC  —  '.8)  RIGHTC - ',8) 

RIGHT( ' - ' .8). 

RIGHT (  ' - '.8)"  '  ' 

LINE-9;PLACE=8 
DO  I  *  1  TO  OLDLIFE 
START=1 
STOP- I 
CALL  PVOS 

DO  J  =  1  TO  9  BY  2 

COSTAVOID. J  =  ( J / 1 0 ) “TOTAL OS-ACQCOST 
END 

EXECIO  1  DISKW  COSTAVOID  TABLE  A  LINE  '(STRING'  PLACE  6 
CENTER( 1,19)  RIGHTC  FORMAT ( COSTAVOID . 1 , 8 , 0 ) . 8 ) , 

RIGHT(FORMAT( COSTAVOID. 3. 8,0), 8)  RIGHT(FORMAT(COSTAVOID.6.8,0),8>, 
RIGHTC FORMAT( COSTAVOID. 7, 8,0), 8)  RIGHTC FORMAT( COSTAVOID. 9, 8, 0),8) "  " 
LINE-LINE+1 ;PLACE=PLACE+1 
END 

EXECIO  1  DISKW  COSTAVOIO  TABLE  A  LINE  '(STRING'  24  1  PH  " ' 

PRESS  PF2  TO  EXIT.PF12  FOR  OTHER  OPTIONS  .  '" 

COSTAVOIDBEGIN: 

'DVHMEN  COSTAVOID  TABLE  A  -LABI' 

PULL  ...  KEY 
IF  KEY  -  PF02  THEN  RETURN 
CALL  FUNCTION 
RETURN 
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. . . . * . . . . 

/*  LIFESAVE -.SUBROUTINE  TO  PRODUCE  THE  V 
/•  SAVINGS  OVER  ECONOMIC  LIFE  TABLE  V 
. . . . 


LIFESAVE* 

IF  LIFEFLAG-1  THEN  SIGNAL  LIFESAVEBEGIN 
LIFEFLAG-1 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  1  '(STRING1  1  1 

CENTERC 'TOTAL  SAVINGS  OVER  THE  LIFE  OF  ITEM  REPLACING  \66)”" 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  2  '(STRING*  2  1 
CENTERCTHE'  TMS  NOMEN. N, 66)  "  " 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  3  '(STRING'  3  1 

CENTER( 'DISCOUNT  RATE= 'OISCRATE ' X '  'ACQUISITION  COST-S'ACQCOST,60>"  ' ' 
EXECIO  1  DISKW  LIFESAVE  TABLE  A  4  '(STRING'  41'  ' 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  6  '(STRING'  6  1 

CENTERCLIFE  OF  REPLACEMENT' . 19)  CENTER! 'PERCENT  REDUCTION  IN  SUPPORT 
COSTS 1  46 ) ' ' ' ' 

EXECIO *1  DISKW  LIFESAVE  TABLE  A  6  '(STRING'  6  1 

RIGHTC  *.19)  RIGHT! ' 10V .8)  RIGHT( '30%' ,8)  RIGHT! '60*' ,8) 

RIGHT( ' 70% ' ,8 ) , 

RIGHT(  *90%'  .8)"  " 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  7  '(STRING'  7  1 

RIGHTC  ' ,  19)  RIGHTC  —  ',8)  RIGHTC  —  *,8)  RIGHTC - '.8) 

RIGHT( ' - ' .8). 

RIGHT(  ' - '  .8)"  " 

LINE=8;PLACE=8 

DO  I  -  OLDLIFE  TO  16 
START=1 
STOP=OLDL IFE 
CALL  PVOS 

DO  J  =  1  TO  9  BY  2 

COSTAVOIO. J  =  ( J/10)*TOTALOS-ACQCOST, 

♦ACQCOST*! ( 1+DISCRATE/100)**-OLDLIFE)*( I— OLDLIFE  >/I 
END 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  LINE  '(STRING*  PLACE  1 
CENTER( 1.19)  RIGHT! F ORMAT ( COSTAVOID . 1 . 8 . 0 ) . 8 ) , 

RIGHT(FORMAT( COSTAVOID. 3, 8.0), 8)  RIGHT(FORMAT( COSTAVOID. 6, 8,0), 8). 
RIGHT! FORMAT! COST AVOID. 7 ,8,0), 8)  RIGHTIFORMATICOSTAVOID.S.S.Bl.S)' '  '  ' 
LINE=LINE+1 ;PLACE*PLACE+1 
END 

EXECIO  1  DISKW  LIFESAVE  TABLE  A  LINE  '(STRING'  24  7  PH  *  " 

PRESS  PF2  TO  EXIT.PF12  FOR  OTHER  OPTIONS  . 

LIFESAVEBEGIN: 

' DVHMEN  LIFESAVE  TABLE  A  ' 

PULL  ...  KEY 
CALL  FUNCTION 
RETURN 


/•  DIAGNOSE: SUBROUTINE  TO  PRODUCE  THE  PREDICTION  V 

/*  DIAGNOSTICS  TABLE  V 


DIAGNOSE: 

IF  DIAGFLAG-1  THEN  SIGNAL  DIAGNOSEBEGIN 
DIAGFLAG-1 
DO  K  -  3  TO  N 
DATAPOINT-K 
CALL  REG 
B0.K-B0 
B1.K-B1 
MSE.K-MSE 
XBAR,K=XBAR 
XXSUM.K*XXSUM 
END 

DO  I  *  4  TO  N+l 
DO  J  =  3  TO  N 

PMEAN  *  B0. J+Bl . J*INTLOG( I ) 

PRED . I . JaEXP( PMEAN ) 

ENO 

END 

DO  I  -  4  TO  N 
J  *  1-1 
K  *  1  +  1 
DF  =  J-2 

ILOG*INTLOG(I) 

IF  WEIGHT  = 'LINEAR'  THEN  DO 
WT  =  I 

DENOM  =  U*( J+l  )/2 
END 

ELSE  WT  =  1 

PMEAN  *  B0. J+Bl . J*ILOG 
PMULT1=  FSTAT(DF )*MSE.O 

PMULT2=< l/WT)+( l/DENOM)+<( ILOG-XBAR. J)**2)/XXSUM. J 
PMULT  -  EXP( 0 . 5*L0G<  PMULT1 *PMULT2 ) ) 

LB  *  EXP( PMEAN-PMULT ) 

UB  *  EXP( PMEAN+PMULT ) 

PI. I  -  60*(UB-LB)/PREO. I . J 
RES. I  -  TCOST. I -PRED. I .0 
RAI.I  ■  100*RES. I/PRED. I. J 
SI .K  «  100*(PRED.K. I-PRED.K. J)/PRED.K. J 
END 

LAST  -  N+l 
DF  -  N-2 

IF  WEIGHT  * 'LINEAR'  THEN  DO 

WT  =  LAST 

OENOM  *  N*( N+l  )/2 

ENO 

P MULTI*  FSTAT(OF)*MSE.N 

PMULT2*( l/WT)+( l/DENOM)+( ( INTL0G(LAST)-XBAR.N)**2)/XXSUM.N 
PMULT  -  EXP( 0 . 5*L0G( PMULT1 *PMULT2 ) ) 

LB  *  EXP( PMEAN-PMULT) 

UB  *  EXP (PMEAN-PMULT) 

PI. LAST  ■  t>0*( UB-LB )/PREO . LAST , N 


-62- 


EXECIO  1  DISKW  DIAGNOSE  TABLE  A  1  '(STRING1  2  6 

C£NTER( 'PREDICTION  DIAGNOSTICS  FOR  THE'  TMS  NOMEN. N, 60>‘  "  ' 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  2  ‘(STRING'  36'  ' 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  3  '(STRING1  4  6 
CENTER( 'ACCURACY  INDICES' .60)"  " 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  4  '(STRING'  6  6 
CENTER( ' FY ' .6)  CENTER( 'RESIDUAL ' ,16)  CENTER! 'RELATIVE  ACCURACY ', 36 ) 
EXECIO  1  DISKW  DIAGNOSE  TABLE  A  6  '(STRING'  6  6 

CENTER! '  — '  ,6)  CENTER( ' - '  .16)  CENTER! ' - ',36) 

LINE=6;PLACE=7 
DO  I  *  4  TO  N 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE  '(STRING'  PLACE  6 
CENTER( YEAR .1.6)  CENTER( F ORMAT ( RES . 1 . 8 . 0 ) , 16 > , 

CENTER! FORMAT! RAI. 1,3,1 )'%' .36)"  ' ' 

LINE=LINE+1 ;PLACE=PLACE+1 
END 

PLAC£=PLACE+1 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE  '(STRING'  PLACE  1  '  ' 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE+1  '(STRING'  PLACE+1  6 

CENTERC  ',10)  CENTER! 'FY' ,6)  CENTER( ' STABILITY  INDEX' .37)"  * ’ 
EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE+2  '(STRING’  PLACE+2  6 

CENTERC  '.10)  CENTER!  '  —  ‘  ,6)  CENTERC - ',37)"" 

LINE3LINE+3;PLACE=PLACE+3 
DO  I  =*  N  TO  N+l 
YR  -  YEAR  .1  +  1-1 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE  '(STRING'  PLACE  6 
CENTERC  '.10)  CENTER( YR,6)  CENTER! FORMAT( SI . 1 ,4. 1 ) '% ' ,36) "  " 
LINE=LINE+1 ;PLACE=PLACE+1 
END 

PLACE=PLACE+1 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE  '(STRING'  PLACE  1  ' 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE+1  '(STRING'  PLACE+1  6 

CENTERC  '  ,  10)  CENTER!  'FY'  ,6)  CENTER!  ' PRECISION  INDEX'. 37)"" 
EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE+2  '(STRING'  PLACE+2  6 

CENTERC  '.10)  CENTER( '  — '  .6)  CENTERC - ',37)"" 

LINE=LINE+3; PLACE =PLACE+3 
DO  I  *  4  TO  N+l 
YR  *  YEAR. 1 + I — 1 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE  '(STRING’  PLACE  6 

CENTERC  '.10)  CENTER! YR, 6)  CENTER(FORMAT(PI . 1 .6, 1 ) ' X' ,36)  "  " 
LINE*LINE+1 ;PLACE=PLACE+1 
END 

EXECIO  1  DISKW  DIAGNOSE  TABLE  A  LINE  '(STRING'  24  7. 

'"PRESS  PF12  FOR  A  LIST  OF  OPTIONS. PF2  TO  EXIT."' 

OIAGNOSE BEGIN: 

' DVHMEN  DIAGNOSE  TABLE  A 
PULL  ...  KEY 
CALL  FUNCTION 
RETURN 


i 


■ 


i 


i 


/*»*»*«*«***»**»*»***»********«***,,*,,w” 

/•  FUNCTION: SUBROUTINE  TO  DISPLAY  COSTCASTER  OUTPUTS^ V( 

/.****•*•...*..**»«•••**•*•*****•**•••****•*•••* 

FUNCTION: 

IF  KEY-PF10  THEN  DO 

QUEUE  '.ALARM1  ^ 

QUEUE  24  12  PH  ‘ '‘***PF10  NOT  DEFINED 
CURSOR  ='11' 

SIGNAL  MENU3 
END 

IF  KEY-PF09  THEN  SIGNAL  RESTART 
IF  KEY-PF01  THEN  DO 

QUEUE  24^12  PH  '''***OPTION  NOT  IMPLEMENTED*** 
CURSOR  »  1  6  2  1 
SIGNAL  MENU3 
END 

IF  KEY=PF02  THEN  SIGNAL  COSTCAT 
IF  KEY=PF07  THEN  DO 

QUEUE  24^12  PH  '‘'***OPTION  NOT  IMPLEMENTED*** 
CURSOR  =  172  * 

SIGNAL  MENU3 
END 

IF  KEY-PF11  THEN  DO 

QUEUE  24^12^PH  ‘''***PF  KEY  NOT  IMPLEMENTED* ** 
CURSOR  -'ll* 

SIGNAL  MENU3 
END 

IF  REGFLAG  *  1  THEN  CALL  REG 
IF  KEY=PF03  THEN  SIGNAL  PREDTABLE 
IF  KEY=PF04  THEN  SIGNAL  DIAGNOSE 
IF  KEY=PF05  THEN  SIGNAL  COSTAVOID 
IF  KEY=PF06  THEN  SIGNAL  WHENBUY 
IF  KEY=PF08  THEN  SIGNAL  LIFESAVE 
IF  KEY  =  PF12  THEN  DO 
CURSOR  ■  '  1  r 
CALL  MENU3 
END 

RETURN 


I 
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/•  INTLOGs  SUBROUTINE  TO  LOOK  UP  THE  LOGS  OF  INTEGERS 

INTLOG» 

ARG  X 

IF  X-  1  THEN  RETURN  0.00000  *  IF  X-  2  THEN  RETURN  0.6931472 

IF  X-  3  THEN  RETURN  1.0986123} IF  X-  4  THEN  RETURN  1.3862944 

IF  X-  6  THEN  RETURN  1.6094379} IF  X-  6  THEN  RETURN  1.7917696 

IF  X*  7  THEN  RETURN  1.9459101} IF  X»  8  THEN  RETURN  2.0794416 

IF  X-  9  THEN  RETURN  2. 1972246; IF  X*  10  THEN  RETURN  2.3025851 

IF  X-  11  THEN  RETURN  2.3978953} IF  X>  12  THEN  RETURN  2.4849066 

IF  Xa  13  THEN  RETURN  2.5649494s  IF  X=  14  THEN  RETURN  2.6390673 

IF  X-  16  THEN  RETURN  2.7080602s IF  X=*  16  THEN  RETURN  2.7726887 

IF  X=  17  THEN  RETURN  2.8332133} IF  X*  18  THEN  RETURN  2.8903718 

IF  X*  19  THEN  RETURN  2.9444439} IF  X*  20  THEN  RETURN  2.9967323 

IF  X*  21  THEN  RETURN  3.0446224} IF  X=  22  THEN  RETURN  3.0910425 

IF  X*  23  THEN  RETURN  3. 1364942s IF  X»  24  THEN  RETURN  3.1780638 

IF  X*  26  THEN  RETURN  3.2188758s  IF  Xa  26  THEN  RETURN  3.2680966 

IF  X=  27  THEN  RETURN  3.2968369} IF  Xa  28  THEN  RETURN  3.3322046 
IF  X*  29  THEN  RETURN  3.3672968} IF  X«  30  THEN  RETURN  3.4011974 
RETURN 


*/ 
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/ 


S  /•  OUTPUT  THE  DESIRED  TABLE  */ 

TABLEPUT: 


PROCEDURE  EXPOSE  PREDFLAG  WHENFLAG  COSTFLAG  LIFEFLAG  DIAGFLAG  COSTCATFLAG 
IF  PREDFLAG-1  THEN  DO  1  =  1  TO  48 
EXECIO  1  DISKR  PREDTABLE  TABLE  A  I 
IF  RC=2  THEN  LEAVE 

■  PULL  LEAD  OUTPUT  •  TRAIL 
TRACE  OFF 

IF  POS( 'PRESS  PF', OUTPUT)  -0  THEN  EXECIO  1  DISKW  PREDTABLE  LISTING  A  I 

‘(STRING*  OUTPUT 

END 

IF  PREDFLAG-1  THEN  'LISTOFF  PREDTABLE  LISTING  A  (VERSATEC)' 

J=1 

IF  WHENFLAG* 1  THEN  DO  1=1  TO  48 
EXECIO  1  DISKR  WHENBUY  TABLE  A  I 
IF  RC=2  THEN  LEAVE 
PULL  LEAD  •"  OUTPUT  *  "•  TRAIL 
TRACE  OFF 

IF  POS( 'PRESS  PF'. OUTPUT)  =0  THEN  DO 
r  EXECIO  1  DISKW  WHENBUY  LISTING  A  J  '(STRING’  OUTPUT 

J=J+1 
END 
END 

IF  WHENFLAG* 1  THEN  'LISTOFF  WHENBUY  LISTING  A  (VERSATEC)' 

IF  COSTFLAG* 1  THEN  DO  1*1  TO  48 
EXECIO  1  DISKR  COSTAVOID  TABLE  A  I 
|  IF  RC=2  THEN  LEAVE 

■  PULL  LEAD  OUTPUT  "' "  TRAIL 

IF  POSC PRESS  PF'. OUTPUT)  =0  THEN  EXECIO  1  DISKW  COSTAVOID  LISTING  A  I 

'(STRING'  OUTPUT 

END 

IF  COSTFLAG* 1  THEN  'LISTOFF  COSTAVOID  LISTING  A  (VERSATEC)' 

IF  LIFEFLAG* 1  THEN  DO  1=1  TO  48 

■  EXECIO  1  DISKR  LIFESAVE  TABLE  A  I 

"  IF  RC*2  THEN  LEAVE 

PULL  LEAO  ■'■  OUTPUT  TRAIL 

IF  POS( 'PRESS  PF'. OUTPUT)  =0  THEN  EXECIO  1  DISKW  LIFESAVE  LISTING  A  I 

'(STRING'  OUTPUT 

END 

IF  LIFEFLAG* 1  THEN  'LISTOFF  LIFESAVE  LISTING  A  (VERSATEC)' 

IF  DIAGFLAG* 1  THEN  DO  1=1  TO  48 
'  EXECIO  1  DISKR  DIAGNOSE  TABLE  A  I 

IF  RC*2  THEN  LEAVE 
PULL  LEAD  OUTPUT  TRAIL 

IF  POS( 'PRESS  PF', OUTPUT)  =0  THEN  EXECIO  1  DISKW  DIAGNOSE  LISTING  A  I 

'(STRING'  OUTPUT 

ENO 

IF  DIAGFLAG* 1  THEN  'LISTOFF  DIAGNOSE  LISTING  A  (VERSATEC) ' 

IF  COSTCATFLAG* 1  THEN  DO  1-1  TO  24 
EXECIO  1  DISKR  COSTCAT  TABLE  A  I 
IF  RC-2  THEN  LEAVE 
PULL  LEAD  OUTPUT  *'*  TRAIL 

IF  POS( 'PRESS  PF'. OUTPUT)  -0  THEN  EXECIO  1  DISKW  COSTCAT  LISTING  A  I 
v  '(STRING'  OUTPUT 

ENO 

IF  COSTCATFLAG- 1  THEN  'LISTOFF  COSTCAT  LISTING  A  (VERSATEC)' 

RETURN 
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I 


. . . . . . . . . 

/*  COSTCAT i  SUBROUTINE  TO  PRODUCE  THE  TABLE  OF  INPUT  COSTS  */ 

/*  BY  COST  CATEGORY.  •/ 

. . 

COSTCAT i 
COSTCATFLAG-1 
CALL  COSTREAO 
1*1 ; J-2;K*3;L-4;M-B 

EXECIO  1  DISKW  COSTCAT  TABLE  A  1  '(STRING'  1  1 

CENTERCTMS  NOMEN. N  'INPUT  TABLE( COSTS  ARE  S/UNIT  IN  FY82  S)',64)  "" 
EXECIO  1  DISKW  COSTCAT  TABLE  A  2  '(STRING1  2  1 

CENTERCCOST  CATEGORY 1 .24 )  CENTER( ' FY 1  YEAR. 1 .7)  CENTER(  'FY' YEAR.  1+1,7). 
CENTER(  1 F Y 1  YEAR .1+2,7)  CENTER( ' F Y '  YEAR .1+3,7)  CENTER( ' F Y '  YEAR.  1+4,7)"" 
EXECIO  1  DISKW  COSTCAT  TABLE  A  3  '(STRING1  3  1  11", 

CENTERC - ‘.24)  CENTER(  1 - \7>  CENTER( ' - ',7). 

CENTERC - *,7)  CENTERC - ‘,7)  CENTERC - ',7)"" 

EXECIO  1  DISKW  COSTCAT  TABLE  A  4  '(STRING*  4  1  1,1  ", 

CENTER( ‘OPERATIONS  PERSONNEL  ‘.24)  CENTER(FORMAT(COST.1.I.6,0).7> 

CENTER( FORMAT( COST . 1 . J , 6 , 0 ) , 7 ) , 

CENTER ( FORMAT ( COST .l.K,6,0),7)  CENTER( F ORMAT( COST .l.L,B,0),7) 

CENTER(FORMAT(COST. 1.M,6,0),7)‘ 1 1 1 

EXECIO  1  DISKW  COSTCAT  TABLE  A  B  '(STRING*  B  1 

CENTER( "BASE  MAINTENANCE  PERS.  '.24)  CENTER(FORMAT(COST.2.I,6.0),7> 

CENTER( FORMAT( COST .2. J, 6,0), 7), 

CENTER( F ORMAT ( COST .2. K, 6,0), 7)  CENTER(FORMAT(COST.2.L,B,0),7) 

CENTER( F  ORMAT ( COST .2. M, 6,0), 7)' 1 ' 1 

EXECIO  1  DISKW  COSTCAT  TABLE  A  6  '(STRING1  6  1  "", 

CENTERC ADMINISTRATIVE  PERSONNEL  *,24)  CENTER(FORMAT(COST.3.I,6,0),7) 
CENTER( FORMAT! COST . 3 . J , 6 , 0 ) . 7 ) , 

CE NTE R( F ORMAT ( COST . 3 . K . 6 , 0 ) . 7 )  CENTER! FORMAT! COST .3. L, 6,0). 7) 

CENTER! F  ORMAT ( COST .3. M, 6,0), 7)' 1 1 1 

EXECIO  1  DISKW  COSTCAT  TABLE  A  7  '(STRING1  7  1 

CENTER! "SUPPLY  SUPPORT  PERSONNEL  ',24)  CENTER(FORMAT(COST.4.I,6.0),7) 
CENTER! FORMAT! COST . 4 . J , 6 . 0 ), 7 ) . 

CENTER! F ORMAT ( COST .4.K,6,0),7)  CENTER(FORMAT(COST.4.L.6,0),7) 

CENTER!FORMAT!COST.4.M,5,0),7)"  1 1 

EXECIO  1  DISKW  COSTCAT  TABLE  A  8  '(STRING1  8  1 

CENTER! ‘FUEL  \24)  CENTER(FORMAT(COST.6.I.6,0),7) 

CENTER! FORMAT! COST . 6 . J , 6 , 0 ), 7 ) , 

CENTER! FORMAT! COST. 6. K, 6,0), 7)  CENTER(FORMAT(COST.6.L,6,0),7) 

CENTER!FORMAT(COST.6.M,6,0),7)' 1 1 1 

EXECIO  1  DISKW  COSTCAT  TABLE  A  9  '(STRING1  9  1 

CENTERC MAINTENANCE  MATERIEL  ',24)  CENTER! FORMAT! COST. 6. I ,6,0),7) 

CENTER! FORMAT(COST.6.J.6,0).7). 

CENTER! FORMAT! COST .6. K, 6.0). 7)  CENTER! FORMAT! COST .6.L.6 ,0),7) 
CENTER(FORMAT(COST.6.M,6,0),7)"  1 1 

EXECIO  1  DISKW  COSTCAT  TABLE  A  10  '(STRING1  10  1  11", 

CENTER! "UTILITIES  1  . 24 )  CENTER!FORMAT(COST.7.I,6,0),7) 

CENTER! F  ORMAT ! COST .7. J, 6,0), 7), 

CENTER! FORMAT! COST. 7. K, 6,0), 7)  CENTER(FORMAT!COST.7.L,6,0>,7> 

CENTER! F  ORMAT ( COST .7. M, 6,0), 7)' 1 ' ' 
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EXECIO  1  DISKW  COSTCAT  TABLE  A  11  '(STRING1  11  1 

CENTER( 'DEPOT  MAINTENANCE  ’.24)  CENTER(FORMAT<COST.8.I,B,0),7) 

CENTER<  F  ORMAT  <  COST .8. 0,6,0), 7), 

CENTER( F ORMAT ( COST .8. K, 6,0), 7)  CENTER(F0RMAT<C0ST.8.L,B,B),7) 

CENTER( F  ORMAT ( COST .8.M,6,0),7)' ' ' • 

EXECIO  1  DISKW  COSTCAT  TABLE  A  12  '(STRING'  12  1 

CENTER( 'REPLACEMENT  INVESTMENT  ',24)  CENTER(FORMAT(COST.9.I,B,0),7) 
C£NT£R( FORMAT ( COST .9. J, 5,0), 7), 

CENTER( F ORMAT ( COST .9.K,5,0),7)  CENTER(FORMAT(COST.9.L,6,0),7) 
CENT£R(FORMAT(COST.9.M,5,0),7)"  ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  13  '(STRING'  13  1 

CENT£R( 'BASE  OPERATIONS  SUPPORT  ',24)  CENTER(FORMAT( COST. 10. I ,6,0) ,7) 
CENTER(FORMAT(COST. 10. J, 6,0), 7), 

CENTER( FORMAT( COST . 10. K, 6,0), 7)  CENTER( FORMAT( COST . 10. L, 6,0), 7) 
CENTER(FORMAT(COST . 10. M, 6,0), 7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  14  '(STRING'  14  1 

CENTERCREAL  PROPERTY  MAINT.  '.24)  CENTER(FORMAT(COST. 11.1,6,0), 7) 
CENTER(FORMAT(COST. 11. J, 6,0), 7), 

CENTER( F ORMAT ( COST .11. K, 6,0), 7)  CENTER( F ORMAT ( COST . 11. L, 6,0), 7) 
CENTER(FORMAT(COST. 11. M, 6,0), 7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  16  '(STRING'  16  1 

CENTER( 'COMMUNICATIONS  '.24)  CENTER(FORMAT(COST. 12. I ,6.0), 7) 

CENTER(FORMAT(COST. 12. J, 6,0), 7), 

CENTER( FORMAT ( COST . 12. K, 6.0), 7)  CENTER(FORMAT( COST . 12. L, 6,0), 7) 
CENTER(FORMAT(COST. 12.M,6,0),7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  16  '(STRING1  16  1 

CENTER( 'TEMPORARY  DUTY  '.24)  CENTER( FORMAT( COST. 13. I, 6,0), 7) 

CENTER( FORMAT( COST. 13. J, 6,0), 7), 

CENTER( F ORMAT ( COST . 13. K, 6,0), 7)  CENTER( FORMAT( COST . 13. L. 6.0). 7) 

CENTER( FORMATC  COST. 13. M, 6,0), 7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  17  '(STRING'  17  1 

CENTER( 'PERM.  CHANGE  OF  STATION  ',24)  CENTER(FORMAT(COST.14.I,6.0),7) 
CENTER(FORMAT(COST. 14. J, 6,0), 7), 

CENTER(FOKMAT( COST. 14. K, 6,0), 7)  CENTER(FORMAT(COST.14.L,6,0),7) 

CENTER( FORMATC  COST. 14. M, 6,0), 7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  18  '(STRING'  18  1 

CENTER( 'MEDICAL  ',24)  CENTER(FORMAT(COST.16.I,6,0),7) 

CENTER( FORM  , T< COST . 16. J. 6,0), 7), 

CENTER( FORMATC COST. 16. K, 6,0), 7)  CENTER(FORMAT(COST.16.L,6,0),7) 

CENTER( FORMATC COST. 16.M.6.0) , 7 ) ' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  19  '(STRING'  19  1 

CENTER( 'GENERAL  DEPOT  SUPPORT  ’,24)  CENTER(FORMAT(COST.16.I,6,0>,7) 

CENTER( FORMATC COST. 16. J, 5,0), 7), 

CENTERC FORMATC COST. 16. K, 6,0), 7)  CENTER(FORMAT(COST.16.L,6,0),7) 

CENTERC FORMATC COST. 16. M, 6,0), 7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  20  '(STRING'  20  1 

CENTER( 'ENGINEERING  SUPPORT  ’,24)  CENTER(FORMAT(COST.17.I.6.0),7) 

CENTER( FORMATC  COST .17. 0,6,0), 7), 

CENTER( FORMATC COST. 1 7. K, 6,0), 7)  CENTER(FORMAT(COST. 17. L, 6,0), 7) 

CENTERC FORMATC  COST. 17. M, 6,0), 7)' ' ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  21  '(STRING'  21  1 

CENTERC 'TRANSPORT.  AND  PACKAGING' ,24 )  CENTER( FORMATC COST. 18. I ,6,0), 7) 
CENTERC FORMA  < COST. 18. J,6,0>,7), 

CENTERC FORMA  re  COST. 18. K, 6,0), 7)  CENTER(FORMAT(COST.18.L,6,0),7) 

CENTERC FORMATC COST. 18. M, 6,0), 7)' ' ' ' 


EXECIO  1  DISKW  COSTCAT  TABLE  A  22  '(STRING'  22  1 

CENTER( 'ADVANCED  TRAINING  \24>  CENTER(FORPKT(COST.19.I,6.0).7> 

CENTER(FORMAT(COST. 19. 0,5,0 ),7), 

C£NTER(FORMAT( COST. 19. K, 5,0), 7)  CENTER(FORMAT(COST.19.L,5,0),7) 

CENTER( F ORMAT < COST ,19.M,6,0),7>"  ' ' 

EXECIO  1  DISKW  COSTCAT  TABLE  A  23  '(STRING'  23  1 

III* 

EXECIO  1  DISKW  COSTCAT  TABLE  A  24  '(STRING'  24  1  '" 

PRESS  PF2  TO  EXIT.PF12  FOR  OTHER  OPTIONS  . 

' DVHMEN  COSTCAT  TABLE  A' 

PULL  ...  KEY 

IF  KEY  -  PF02  THEN  RETURN 

CALL  FUNCTION 

RETURN 
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